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IDENTIFICATION 

PRODUCT ID: AC-T777A-MC 

PRODUCT TITLE; CZTKFA TK25 FRT ENO FUNC 02 

PRODUCT DATEj MARCH, 1984 

DEPARTMENTS TAPE DIAGNOSTIC ENGINEERING 

AUTHOR: DICE SYSTEMS, INC. 



COPYRIGHT (C) 1964 BY 
DIGITAL EQUIPMENT CORPORATION, 
WESTBORO, MASSACHUSETTS, 
ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHEO UNDCR A LICENSE AND MAY BE USED ANO COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER 
PERSON. NO TITLE TO ANO OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOU.0 NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO PESPONSIBILITY FOR THE USE OR RELIABILITY OF US 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL, 
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1.0 ABSTRACT 

THIS IS A PDP-11/LSI RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY OF 
AN TK25 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM (Q-BUS OR 
IMIBUS). THE PROGRAM HAS BEEN DIVIDED INTO FOUR MAJOR PIECES: CZTKE, 
CZTKF, CZTKG, CZTKH, SUCCESSFUL RUN EXAMPLES, ANO TEST DESCRIPTIONS HAVE 
BEEN PROVIDED FOR EACH PROGRAM. 

THE PROGRAMS PROVIDE ERROR MESSAGES WHICH IDENTIFY FAILING ri<Ni'TIONS, AND 
AID IN DEVICE REPAIR. REFERENCE THE FOLLOWING DIGITAL EQUIPH' >4T DOCUMENTS- 

1. CIQPMAO XXDP* PROGRAMMER'S MANUALt DOCUMENT NUMBER AC-S296A-AC» 
DATE: 14 JIAY 1980, 

1.1 REVISION HISTORY 

NEW RELEASE APRIL 1984 
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2.0 REQUIREMENTS 

2.1 HARDWARE REQUIREMENTS 

PDP-11 FAMILY PROCESSOR WITH 32K WORDS Of MEMORY 
TK25 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/O PAGE) 

2.1.1 OPTIONAL HARDWARE - 

FOUR TK25 CONTROLLERS PER PDP-11 , ONE 
DRIVE PER CONTROLLER 

2.2 SOFTWARE REQUIREMENTS 

PDP-11 DIAGNOSTIC SUPERVISOR (CIQPMAO VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER /MONITOR (XXDPO 

2.3 PREREQUISITES 

FUNCTIONAL PDP-li/LSI FAMILY CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANQAIQN6 DIAGNOSTIC SUPERVISOR 
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3.0 OPERATIC INSTRUCTIONS - OPERATOR COMMANDS 



3.1 OPERATOR COMMANOS 

THE TK25 DIAGNOSTICS ARF PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE PROGRAMS. 
ALL LOADING AND RUN TIME INSTRUCTIONS CAN BE REFERENCED IN THE PDP-11 
PROGRAMMER'S MANUAL "CIOPMAO XXOP" PROGRAMMER'S MANUAL NUMBER AC-S296A-AC. 

BOOT THE DIAGNOSTIC XXDP* MEDIA (OPERATOR RESPONSES ARE UNDERLINED) 

CHOLEO XXDP* DL MONITOR 
BOOTED VIA UNIT 
28K NON-UNIBUS SYSTEM 

ENTER DATE <DO-MMM-YY>: 29-JAN-62 



RESTART ADDPESS; 152010 

THIS IS XXDP* TYPE "H" OR "H/L" TOR HELP, 

.R CZTKFA 



CZTKFA. BIC 

DRS-EO 

CZTKF-A-0 

CZTKFA TK-25 FRT END FUNC 08 UNIT IS TK25 

RSTRT ADR 147642 

DR>START/FLAG:PNT:HOE 



THE ABOVE COMMAND UILL START THE DIAGNOSTIC, THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE "PRINT EACH TEST NUMBER AS EXECUTED" AND "HALT ON 
ERROR", 
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3,2 HARDWARE PARAMETERS 

AfTER INITIAL STARTING OF THE PROGRAM C START COMMANO TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF THE 
HARDWARE PARAMETERS ARE TO BE CHANGED CBY THE OPERATOR. 

ON A "N" (NO) RESPONCE TO THE QUESTION, THE PROGRA 1 WILL USE IT'S DEFAULT 
HARDWARE PARAMETER VALUES. IT WILL DEFAULT TO ONE UNIT SELECTED (UNIT 0), 
THE DEFAULT TSBA/TSOB WILL BE 172522 ANO THE INTEFiRUPT VECTOR WILL BE 224. 

ON A "Y" (YES) RESPONSE TO THE QUESTION. THE FOLLOWING QUESTIONS WILL THEN 
BE ASKED TO ALLOW THE OPERATOR TO SELECT iHE UNITS TO Be TESTED. A VALUF, 
IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE 
THAT WILL BE TAKEN ONLY IF A CARRIAGE RETURN IS TYPED AS A RESPONSE. A 
"(D)" IN A QUESTION INDICATES THAT A DECIMPL NUMBER IS REQUIRED AS A 
RESPONSE, AN "(0)" INDICATES AN OCTAL NUKBiR IS BEING SOLICITED. AN "(L)" 
THAT A LOGICAL RESPONSE IS TO BE MADE: "Y" FOR YES, M N' FOR NO. 

UNITS (D) ? < ENTER THE NUMBER OF CONTROLLERS 
PRESENT TO BE TESTED> 

UNIT 

DEVICE ADDRESS (0) 172522 ? <ENTER THE ADDRESS OF THE 

TSBA/TSDB REGISTER* 

VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR* 

THE ADORESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE " UNITS ?<« QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER BEGINNING AT 0» UP TO FOUR UNITS "CAN BE 
SELECTED FOR TESTING. 
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3.3 SOFTWARE PARAMETERS 

THE 

FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. THEY 

ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW (L) ? < TYPE "Y" TO CAUSE THE FOLLOWING 

QUESTIONS TO BE ASKED. > 

INHIBIT ITERATIONS CD N ? < TYPE "Y" TO PREVENT MULTIPLE 

ITERATIONS Of CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE ITERATIONS. > 

ENABLE CONTROLLER RAM DUMP ON ERROR (L) N? < TYPE "Y" TO DJMP 

SELECTED RAM CONTENTS IN THE 
CONTROLLER MODULE, > 
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4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 

4.1 SUCCESSUL RUN EXAMPLES 



4.1,1 SUCCESSFUL RUN EXAMPLE - CZTKFA - 

TST: 001 INITIALIZATION 92 TEST 
TST: 002 OFF -LINE REJECT ANO REUINO TEST 
TST: 003 BASIC WRITE TEST 

TST j 004 BASIC READ DATA (FORWARD AND REVERSE) TEST 
TST.- 005 STANO -ALONE MANUAL INTERVENTION NOT EXECUTED TEST 
TST: 006 STANO-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST 
T r ,T: 007 STANO-ALONE SCOPE LOOPS NOT EXECUTED TEST 
CZTKF EOP 1 

TOTAL ERRS 



NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 
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4 % 2 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGE 

ERROR MESSAGE EXAMPLE 

TST: 003 BASIC WRITE TEST 

CZTKF HRO ERR 00305 ON UNIT 00 TST 003 SUB 001 PC {026500 

TSSR INCORRECT AFTER WRITE COMMAND, MORE BITS SET THAN SSR 

TSSR-000000 

TERMINATION CLASS COOE - NORMAL TERMINATION 

♦♦♦♦♦REPLACE CON i ROLLER***** 

PACKET ADDRESS-030510 

PACKET WORD #0-140005 

PACKET WORD #1-053470 

PACKET WORD #2-000000 

PACKET WORD #3-000024 

MESSACE BUFFER ADDRESS -010400 
MESSAGE BUFFER CONTENTS? 
MESSAGE BUFFcR HEAOER -100020 
OATA FIELD LENGTH -000012 
RESIDUAL BYTE COUNTER -000000 
XSTATO CONTENTS -000300 

XSTAT1 CONTENTS -000000 

XSTAT2 CONTENTS -101000 

XSTAT3 CONTENTS *QQQQ0Q 
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5,0 PROGRAh JUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAMS ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING UAS DONE ON A PDP-11/23 (LSI) PROCESSOR 
WITH , LA-120 CONSOLE, 

THE PROGRAMS RUN IN NON-ITERATIVE MODE. EACH TEST IS RUN ONCE, WITH NO 
ITERATIONS, THEREFOR, THE DEFAULT MOOE (NORMALLY ITERATIVE) AND THE 
NON-ITERATIVE MODE TlMdS ARE IDENTICAL, 

5*1 RUN TIMES - CZTKF 



TEST 


N/I 


DEF 


NUMBER 


SECS. 


SECS 


1 


2 


2 


2 


2 


2 


3 


41 


41 


4 


70 


70 


5 


N/A 


N/A 


6 


N/A 


N/A 


7 


N/A 


N/A 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 4 IN ONE COMMAND: 

Q.V. 1 MIN 55 SECONOS 
DEFAULT 1 MIN 55 SECONDS 
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6.0 TEST DESCRIPTIONS - CZTKF 

6.1 TEST 1 - INITIALIZATION *2 

****************************** + *******************,* ****** ***** 

♦ NOTE; IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 
•> CONTROLLER * 

********* ******************************************** *^*« ^«# * .. 

THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE CONT.«^.:.PR TO ITS 
INITIALIZED STATE FROM VARIOUS CQNQITQNS* 
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6,2 TEST 2 - OFF LINE REJECT AND REWIND TEST 

THIS TEST VERIFIES BASIC TAPE MOTION COMMAND DECODING ANO BASIC OPERATION 
OF THE REWINC POSITIONING COMMAND. IT DOES NOT NECESSARILY DEMONSTRATE 
THAT THE TRAN^ORT CAN BE REWOUND FROM AN ARBITRARY POSITION ON THE TAPE. 
SUBSEQUENT TESTS IMPLICITLY CHECK THE OPERATION .:* THE REWIND COMMAND SINCE 
THEY MUST TYPICALLY REUIND THE TAPE IN IN THE NORMAL COURSE OF THEIR TEST 
SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS: 

6.2.1 TEST 2. SUBTEST 1: - 

THIS SUBTEST VERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME CHECK 
(CVC) BIT CLEAR IS REJECTED IF THE VOLUME CHECK CVDO FLAG IS SET. 

6.2.2 TEST 2. SUBTEST 2: - 

THIS SUBTEST VERIFIES THAT A REWIND COMMAND WITH A CVC-1 CLEARS VCK AND 
RETURNS PROPER STATUS IN THE MESSAGE BUFFER, 
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6.3 TEST 3 - BASIC WRITE TEST 

4^*4^ + **** 4^ 4^** + 4^***4^ + *4^* + * + **** + ***4^ 4^*4^**4^***** + **** + 

* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIV* NY * 
+ TAPE ERRORS WILL BE DISPLAYLD AS TAPE STATUS ALERT ♦ 

4>4«*4.4>**4t4>*44'***^4'4i4i*4>4i***4>*******«4***«>4^*********AA**A**;-**A 

THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES CORRECTLY, 
UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY WRITTEN ONTO THE 
TAPE CORRECTLY. THE TESTING IN THIS TEST IS LIMITED TO VERIFYING THAT THE 
COMMAND WAS TERMINATED CORRECTLY WITH THE CORRECT REGISTER, BUFFER, AND RAM 
CONTENTS. 

6.3.1 TEST 3, SUBTEST 1: - 

THIS SU8TEST VERIFIES THAT A WRITE COMMANO (ANY VALID MODE CODE) WITH THE 
CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE VOLUME CHECK (VCK) 
FLAG IS SET. ALL VALID MODE CODES ARE CHECKED (WRITE DATA, WRITE RETRY), 

6.3.2 TEST 3, SUBTEST 2: - 

THIS SUBTEST VERIFIES THAT WRITE DATA COMMANDS WITH CVC-1 ANO THE SWAP 
BYTES (SWB) BIT CLEAR OPERATES PROPERLY. THE BYTE COUNT (RECORD SIZE) 
VARIES FROM 20 T HROUGH 64K IN VARYING INCREMENTS (DEPENOING ON WHETHER OR 
NOT THE DIAGNOSTIC IS RUNNING ON THE LONG VERIFICATION MOOE). THE TAPE IS 
NOT REUOUMD BETWEEN SUCCESSIVE RECORDS BUT IS REWOUND AFTER THE FINAL 
RECORD IS WRITTEN. AN' INCREMENTING COUNT PATTERN IS SUPPLIED IN THE DATA 
BUFFER. AFTER EACH BLOCK IS WRITTEN, THE TTSR AND THE TSBA REGISTERS AND 
THE MESSAGE BUFERS ARE CHECKED, 

6.3.3 TEST 3, SUBTEST 3: - 

THIS SLBTEST VERIFIES THAT WRITE DATA COMMANDS WITH CVC-1 AND THE SWAP 
BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST SEQUENCE IS IDENTICAL TO 
THAT USED IN SUBTEST 2. THE RESULTS SHOULD BE THE SAME. 

6.3.4 TEST 3, SUBTEST 4: - 

THIS SUBTEST VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL BUFFER ADDRESS 
IS REJECTED WITH THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE. 
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6.3.5 TEST 3. SUBTEST 5i - 

THIS SUBTEST VERIFIES THAT A WRITE DATA COMMANO SPECIFYING A DATA BUFFER 
STARTING IN NONEXISTANT MEMORY TERMINATES WITH THE PROPER ERROR STATUS 
WITMCX. MOVING TAPE, THIS TEST IS SKIPPED IF NONEXISTANT MEMORY CAN NOT BE 
ADORESbED. 

6.3.6 TEST 3, SUBTEST 6: - 

THIS SUBTEST VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA BUFFER 
STARTING IN EXISTANT MEMORY BUT RULING INTO NONEXISTANT MEMORY TERMINATES 
WITH THE PROPER ERROR STATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH 
THAT TAPE IS ACTUALLY MOVED ANO WRITTEN, 
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6,4 TEST 4 - BASIC READ OAT A TEST (FORWARD ANO REVERSE) 

♦ NOTE: THIS TAPE MUST HAVE A GOOO MAGTAPE IN THE DRIVE * 

♦ ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT ♦ 

THIS TEST VERIFIES THAT THE READ FORWARD ANO READ REVERSE COMMANDS OPERATE 
PROPERLY. VARIOUS COMBINATIONS OF OOO AND EVEN DATA BUFFER BOUNDARIES, 
RECORO SIZES AND BYTE SWAP CONTROL VARIABLES ARE USED. THE TEST FURTHER 
VERIFIES THE WRITE DA>A COmAND BY ACTUALLY READING AND VERIFYING WRITTEN 
DATA. ALSO TESTED ARE PROPER TERMINATIONS ON EXCEPTIONAL OR ERROR 
CONDITIONS: RECORD LENGTH LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, 
ILLEGAL DATA BUFFER ADDRESSES, ANO NONEXISTANT DATA BUFFER ADDRESSES. 

6.4.1 TEST 4, SUBTEST 1: - 

THIS SUBTEST VERIFIES THAT THE READ FORWARD COMMAND WITH SWB-0 OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
RECOROS VARYING IN LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND AGAIN 
AND THE RECORD READ SEQUENTIALLY AND RESULTS (STATUS, DATA, FTC.) VERIFIED. 
THE BYTE COUNT ON EACH READ FORWARD C0H1AND IS SET TO THE LEHGTH OF THE 
EXPECTED RECORD. SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 

6.4.2 TEST 4, SUBTEST £♦ - 

THIS SUBTEST VERIFIES THAT THE REAO DATA COMMANDS WITH CVC-1 AND THE SWAP 
BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST SEQUENCE IS IDENTICAL TO 
THAT USED IN SUBTEST 2. THE RESULTS, EXCEPT FOR RAM CONTENTS SHOULD BE THE 
SAME. 

6.4.3 TEST 4, SUBTEST 3: - 

THIS SUBTEST VERIFIES THAT A READ FORWARD COMMAND REAOING A RECORD LtflGER 
THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS ALERT TERMINATION WITH THE 
RECORD LENGTH (RLL) BIT SET, 

6.4.4 TEST 4, SUBTEST 4: - 

THIS SUBTEST VERIFIES THAT A READ FORWARD COMMAND READING A RECORD SHORTER 
THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS ALERT TERMINATION WITH THE 
RECORD LENGTH SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE RESIDUAL BYTE 
COi^T (RBPC*) IN THE MESSAGE BUFFER CONTAINS THE PROPER NONZERO VALUE (E.G. 
THE DIFFERENCE BETWEEN THE ACTUAL BYTE COUNT ANQ THE ACTUAL RECORD LENGTH), 
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6.4.5 TEST 4, SUBTEST 5: - 



THIS SUBTEST VERIFIES 

THAT A READ REVERSE COMMAND OPERATES PROPERLY, THE 

TAPE IS FIRST REWOUND ANO THEN WRITTEN WITH A SERIES OF TEST RECORDS 

VARYING IN LENGTH ANO OATA CONTENT. THE TAPE IS THEN READ IN REVERSE 

SEQUENTIALLY ANO THE RESULTS (STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT 

ON EACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE EXPECTED RECORD, 

SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR, 



6,4.6 TEST 4, SUBTEST 6: - 

THIS SUBTEST VERIFIES THAT THE READ DATA COMMANDS WITH CVC-1 AND THE SWAP 

BYTES CSWB) BIT SET OPERATES PROPERLY. THE TEST SEQUENCE IS IDENTICAL TO 

THAT USED IN SUBTEST 2. THE RESULTS EXCEPT FOR RAM CONTENTS SHOULD BE THE 
SAME. 



6.4.7 TEST 4, SUBTEST 7: - 

THIS StETEST VERIFIES THAT A READ REVERSE COMMAND, READING A RECORD LONGER 
THAN THE SPECIFIED BYTE COUNT. CAUSES A TAPE STATUS ALERT TERMINATION WITH 
THE RECORD LENGTH LONG CRLL) BIT SET. 



6.4.8 TEST 4, SUBTEST 8: - 

THIS SUBTEST VERIFIES THAT A REAO REVERSE COMMAND SPECIFYING A DATA BUFFER 
STARTING IN NONEXISTANT MEMORY TERMINATES WITH THE PROPER ERROR STATUS 
WITHOUT MOVING THE TAPE, 



6,4,9 TEST 4, SUBTEST 9: - 

THIS SUBTEST VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A FUNCTION REJECT 
TERMINATION WITH ILLEGAL ADDRESS CILA) ERROR BIT SET. 



6.4.10 TEST 4, SUBTEST 10: - 

THIS SLCTEST VERIFIES THAT A DATA BUFFER ADDRESS, REFERENCING NONEXISTANT 
MEMORY, CAUSES RECOVERABLE ERROR TERMINATION (TC-4), WITH THE NXM BIT SET 
IN THE TSSR* ANO THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY, 
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6.4.11 TEST 4, SUBTEST 11: - 

THIS SUBTEST VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE TAPE IS 
AT BOT RESULTS IN A FUNCTION REJECT TERMINATION WITH THE NONEXECUTABLE 
FUNCTION (NEF) ERROR BIT SET. 

6.4.12 TEST 4, SUBTEST 12: - 

THIS SUBTEST VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE TAPE IS 
POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESULTS IN TAPE 
STATUS ALERT. 
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6,5 TEST 5 - MANUAL INTERVENTION 

THIS TEST MUST BE STARTED AS FOLLOWS: 

AT THE DIAGNOSTIC SUPERVISOR PROMPT ,, DR>" 
TYPE "START/FLAG:PNT/TEST:5/PASS:1" 



THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST") 
THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 
THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 
THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 4, 
SELECTION COOES AND SUBROUTINES ARE} 

CODE ROUTINE 

DISPLAY THIS MENU 

1 REWIND ANO UNLOAD COMMAND TEST 

2 WRITE PROTECT TEST 

3 FRONT PANEL ON -LINE /OFF -LINE SWITCH TEST 

4 RETURN TO THE DIAGNOSTIC SUPERVISOR 

ENTER MENU SEl Cc I iQN: CO) ? 

EACH MENU ITRi CORRESPONDS TO A SUBTEST, AS FOLLOWS: 

SELECTION - PRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 

SELECTION 1 - THIS ROUTINE INSTRUCTS THE OPERATOR TO PLACE THE DRIVE ON-LINE 
AND AT OR BEYOND BOT . THE TF.ST WILL THEN ISSUE THE REWIND ANO 
UNLOAD COMMAND. IT WILL ALSO TELL THE OPERATOR IF THE DRIVE 
E*OED UP ON-LINE OR OFF-LINE. 

SELECTION 2 - THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 
TAPE REEL THAT DOES NOT HAVE A WRITE -ENABLE RING INSTALLED. THEN 
WAITS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
LPON THE RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 
A WRITE -PROTECTED STATUS, THEN ATTEMPTS TO W ITE DATA ON THE 
TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAr 
THE, WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 
WRITE -PROTECTEO. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED. 
AN ERROR IS REPORTED, 

SELECTION 3 - THIS TEST CHECKS THAT THE PROGRAM CAN READ THE SENSE 

OF THE FRONT PANEL "ON-LINE" BUTTON/LIGHT. THE PROGRAM CHECKS THE 

STATE OF THE i RIVE (ON-LINE OR OFF-LINE) AND PRINTS A MESSAGE TO 

NOTIFY THE OPERATOR I.E. "DRIVE IS NOW OFF-LINE" OR "DRIVE IS NOW ON-LINE". 

SELECTION 4 - THIS WILL RETURN THE PROGRAM TO THE DIAGNOSTIC 
SUPERVISOR PROMPT. NOTE: IF THE OPERATOR FAIL EO TO SELECT A PASS 
COUNT OF ONE, THE PROGRAM WILL LOOP UNTIL STOPPED WITH A CONTROL C, 
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6.6 TEST 6 - CONFIGURATION TYPEOUT 

THIS TEST MUST BE STARTED AS FOLLOWS: 

AT THE DIAGNOSTIC SUPERVISOR PROMPT "DR>" 
TYPE "START/FLAGjPNT/TEST^/PASS:!" 



THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TF,RMINAL THE 
CONFIGURATION OF THE CONTROLLER MOOULE ANO THE TK25 SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRINTED: 

1. MICROCODE REVISION LEVEL OF THE CONTROLLER. 

2. NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 

3. UNIT SELECT COOE AND STATE (ONLINE /OFFLINE , WRITE 
ENA8LED/PR0TECTED)0F EACH CONNECTED TRANSPORT. 

THE OPERATOR IS EXPECTED TO READ THE PRINTOUT ANO VERIFY THAT IT MATCHES 
THE ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE. THE PROGRAM INDICATES 
THAT IT "SEES" TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT. 
THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE CAUSE 
(BAD CABLE, FAULTY UNIT SELECT DECOOING IN THE TRANSPORT, ETC. ). f SINCE THE 
CONTROLLER CAN ONLY ACCESS UNIT IF IT IS IN "STANDARD" MODE, THE PROGRAM 
WILL FORCE THE MOOULE INTO EXTENDED MOOE VIA THE WRITE SUBSYSTEM MEMORY 
COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.] 

THIS ROUTINE. WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE 
DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
SELECTED (E.G. FROM JHE. INITIAL STARTUP DIALOGUE), THE ROUTIN& WILL BE 
REENTERED SO THAT THEIR CONFIGURATIONS CAN 8E PRINTED* 



H2 
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USER DOCUMENTATION * tw ^ 

6.7 TEST 7 - SCOPE LOOPS 

THIS TESI .iUSl WE STARTED AS FOLLOWS: 

AT THE DIAGNOSTIC SUPERVISOR PROHPT "DR>" 
TYPE »START/FLAG:PNT/TESTj7/PASS:l" 



THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "SCOPE LOOPS" 
USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PRC i.EMS WITH THE CONTROLLER MODULE. 
THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL LOOP ON ERROR" OR "LOOP ON 
TEST (SUBTEST)" FACILITIES DON'T SEEM TO ALLuW THE OPERATOR TO ZERO IN A 
PROBLEM IN THE EARLY TESTS (I.E. THE HARDWARE MAY NOT BE RESPONDING TO A 
REGISTER ACCESS. CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM MATCHES THE THE CONFIGURATION SET UP IN THE 
HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS IS AVAILABLE: 

CODE SCOPE LOOP 

HELP. PRINT THIS MENU 

1 TS8A READ ACCESS 

2 TSSR READ ACCESS 

3 INITIALIZE (TSSR WRITE ACCESS) 

4 TSD6 HIGH BYTE WRITE ACCESS 

5 TSD6 LOW BYTE WRITE ACCESS 

6 TSDB MAINTENANCE -MOOE WORD WRITE ACCESS 

7 EXIT (RETURN TO SUPERVISOR) 

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS THE OPERATOR 
FOR THE DATA TO BE WRITTEN, TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE 
LOOP BACK TO THE MENU, 



CZTKFA TK-P5 FRT cMO FUNC 02 
USER DOCUMENTATION 
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SEQ 21 



687 






688 






694 






695 


000000 




696 






697 






703 


000000 




704 




002000 


705 


002000 
002000 




706 






707 






708 






709 






710 






711 






712 






713 


002000 




714 


002000 
002000 






002000 


103 




002001 


132 




002002 


124 




002003 


113 




002004 


106 




002005 


000 




002006 


000 




0O2007 


000 




002010 






002010 


101 




002011 






002011 


060 




002012 






OO2012 


000001 




002014 






002014 


001217 




002016 






002016 


053066 




002020 






002020 


053226 




002022 






002022 


002124 




002024 






002024 


002154 




OO2026 






002026 


055442 




002050 






002030 


000000 




002032 






002032 


000000 




002034 






002034 


000000 




002036 






002C Zb 


cooooo 




002040 






002040 


053420 



I INITIALIZE SUPERVISOR MACROS 



.SDTTL PROGRAM HEADER 

.MCALL SVC 

SVC 

.ENABLE LC 

.NLIST BEX.CNO 

.ENABL AMA.ABS 

. ■ 2000 

BGNMOD TUV2A 
TUV2A: t 

j THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
j THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
i -- 



POINTER BGNSW,BGNSFT t BGNAU.BGNOU,BGNRPT,BGNSETUP 
HEADER CZTKF.A.0,655. .0 
LJNAMEj: iDIAGNOSTIC NAME 





.ASCII 


/c/ 




.ASCII 


a/ 




.ASCII 


/T/ 




.ASCII 


/K/ 




.ASCII 


/F/ 




.BYTE 







.BYTE 







.BYTE 





LIREVi: 








.ASCII 


/A/ 


LIDEPO: 








.ASCII 


/o/ 


LIUNIT: 








'.WORD 


TIPTHV 


LITIML: 








'.WORD 


655. 


LIHPCP: 








'.WORD 


LtHARD 


LISPCP: 








'.WORD 


L$S0FT 


LIHPTP; 








* .WORD 


LIHW 


LISPTP: 








'.WORD 


L$SW 


LILADPt 








'.WORD 


LILAST 


LiSTA:; 








.WORD 





LICO: : 








.WORD 





LfDTYP: 


• 






.WORD 





LIAPT; ; 








.WORD 





UQTP;; 








,WQRD 


L*DISP 



{REVISION LEVEL 
jO 

iNUMBER OF UNITS 
lLONGEST TEST TIME 
jPOINTER TO H.W. QUES. 
jPOINTER TO S.W. QUES. 
iPTR. TO DEF. H.U. PTAQLE 
jPTR. TO S.W. PTABLE 
iDIAG. END ADDRESS 
iRESERVED FOR APT STATS 

iDIAGNOSTIC TYPE 

jAPT EXPANSION 

»PTR % TQ DISPATCH TAdlE 
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SEQ 22 



00, '042 
002042 
002044 
002044 
002046 
002046 
002050 
002050 
002051 
002052 
002052 
002054 
002056 
002056 
002060 
002060 
002062 
002062 
002064 
002064 
002066 
002066 
002070 
002070 
002072 
002072 
002074 
00207" 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 
002120 



000000 
000000 

oooooo 

003 
003 

OOOOOO 
OOOOOO 

OOOOOO 

003334 

023052 

OOOOOO 

OOOOOO 

022544 

022642 

OOOOOO 

003342 

104035 

OOOOOO 

021764 

023024 

022750 

021754 

OOOOOO 

OOOOOO 

OOOOOO 



LIPRIO, 








' . WORD 





LIENVI* 








'.WORD 





LIEXP1; 








'.WORD 





LlMREVj 








\byte 


CIREVIS 




.BYTE 


CIEDIT 


LIEF:: 








.WORD 







.WORD 





LISPC: 








.WORD 





LIDEVP 








'.WORD 


LIDVTYP 


LIREPP 








.WORD 


LIRPT 


LIEXP4 








' .WORD 





LIEXP5 








'.WORD 





LIAUT: 








.WORD 


LIAU 


LIDUT: 








.WORD 


LIOU 


LILUN: 








.WORD 





LIDESP 


* 






.WORD 


LIDESC 


LILOAD 


j 






EMT 


EILOAD 


LIETP: 








.WORD 





LIICP: 








.WORD 


LIINIT 


LICCP: 








.WORD 


LICLEAN 


LIACP: 








.WORD 


LI AUTO 


LIPRT: 








.WORD 


LIPnOT 


LITEST 


* J 






.WORD 





LIDLYt 








.WORD 





L*HIME 


1 * 






♦ WORD 


Q 



^DIAGNOSTIC RUN PRIORITY 

iTLAGS DESCRIBE HOW IT WAS SETUP 

EXPANSION WORD 

j SVC REV AND EDIT * 
ON 

,DIAG. EVENT FLAGS 



I POINTER TO DEVICE TYPE LIST 
iPTR. TO REPORT CODE 



tPTR. TO ADD UNIT CODE 

jPTR, TO DROP UNIT CODE 

iLUN FOR EXERCISERS TO FILL 

iPOINTER TO DIAG. DESCRIPTION 

jGENERATE SPECIAL AUTOLOAD EMT 

j POINTER TO ERRTBL 

jPTR. TO INIT CODE 

iPTR, TO CLEAN-UP CODE 

,PTR. TO AUTO COOE 

,PTR, TO PROTECT TABLE 

j TEST NUMBER 

{DELAY COUNT 

|PTR. TO HIGH MEM 



Si 



'W A TK-gS FRT END h UNC 02 
iFAULT HARDWARE P- TABLE 

716 
717 
718 
719 
720 
721 
722 
723 002122 

002122 000003 

002124 

002124 
724 

725 002124 172522 

726 002126 000224 

727 002130 000240 

728 00213; ■ 
00213c' 



MACRO M1200 20-APR-84 08s 12 
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PAGE 23 



SEQ 23 



.SBTTL DEFAULT HARDWARE P-TABLE 

t ♦♦ 

j THE DEFAULT HARDWARE P- TABLE CONTAINS DEFAULT VALUES OF 

5 THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 

j IS IDENTICAL TO THE STRUCTURE OF THE RUN- TIME P- TABLE, 



LIHWt : 
DFPTBLt : 



BGNHW 
.WORD 



L 10000 j 



.WORD 
.WORD 
.WORD 
ENDHW 



DFPTBL 
L10000-LJHW/2 



172522 

?24 

, J RI05 



jDEFAULT HARD-P-TABLE 



i 2ND (OF 2) REGISTERS 
, INTERRUPT VECTOR 
i INTERRUPT PRIORITY. 



CZTKFA TK-25 FRT END FUNC 02 
SOFTWARE P- TABLE 

730 
731 
732 
733 
734 
735 
736 002132 

002132 000004 

002134 

002134 
737 

736 002134 000000 
739 002136 000000 
740 
741 

742 002140 000031 

743 002142 000310 

744 002144 
002144 

74b 
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PAGE 24 



SEQ 24 



.SBTTL SOFTWARE P-TABLE 



; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
i PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



BGNSW 
.WORD 

L$SW:: 

SFPTBL:: 


SFPTBl. 
L 10001 


-L$SW/2 


TRANSTSTj: 
NOITS;: 


.WORD 
.WORD 






LERRMAX: : 
GERRMAX: : 

ENDSW 
L10001: 


.WORD 
.WORD 


25. 

200. 



j ENABLE RAM DUMP 

t INHIBIT ITERATION OPTION. 

i ... - ITERATE. 

S ...NZ - INHIBIT ITERATE. 

; LOCAL (PER TEST) ERROR LIMIT 

i GLOBAL (PER UNIT) ERROR LIMIT 



m^i^un end func * 2 



M2 



MACRO M1200 20-APR-84 08:1c PAGE 26 



SEQ 25 



749 
755 
760 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
779 002144 



♦ ♦ 



.SBTTL GLOBAL EQUATES SECTION 



.SBTTL GLOBAL EQUATES SECTION 



i THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST, 



EQUALS 



j GET STANDARD EQUATES 



100000 
040000 
020000 
010000 
004000 
0020O0 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
00O400 
000200 
000100 
000040 
000020 
000010 
0000O4 
000002 
000001 



000040 
000037 
000036 
000035 
000Q34 



j BIT 


DIFINITIONS 


BIT15- 


■- 100000 


BIT14- 


• 40000 


BIT13- 


" 20000 


BIT12' 


•- 10000 


BIT11« 


•- 4000 


BIT10- 


■- 2000 


BIT09- 


.- iOOO 


BIT08' 


•- 400 


BIT07« 


»« 200 


BIT06' 


■■ 100 


BIT05- 


•- 40 


BIT04* 


.- 20 


BIT03- 


■- 10 


BIT02- 


.. 4 


BIT01- 


•- 2 


BITOO- 


■■ 1 


BIT9-- 


• BIT09 


BIT8- 


• BIT08 


BIT7-« 


• BIT07 


BIT6-' 


■ BIT06 


BIT5-- 


• BIT05 


BIT4-- 


• BIT04 


BIT3- 


• BIT03 


BIT2-« 


• BIT02 


BIT1-' 


- BIT01 


BITO- 


• BITOO 



J 

; EVENT FLAG DEFINITIONS 

j EF32;EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF. START-- 


32 


EF.RESTART-- 


31 


EF. CONTINUE- ■ 


30 


EF.NEW-- 


C9 


LF.PWR-* 


28 



{ START COMMAND WAS ISSUED 

; RESTART COMMANO WAS ISSUED 

j CONTINUE COWANO WAS ISSUED 

t A NEW PASS HAS BEEN STARTED 

I A POWER -FAIL/POWER -UP OCCURRED 



PRIORITY LEVEL DEFINITIONS 



N2 



CZTKFA TK-25 FRT END FUNC 02 
GLOBAL EQUATES SECTION 

000540 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
0OO010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 

780 

781 002144 



000250 

177572 
177574 
177576 
172516 
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PRI07-- 340 






PRI06-- 300 






PRI05-- 240 






PRI04-- 200 






PRI03-- 140 






PRI02-- 100 






PRI01-- 40 






PRIOO-- 






I OPERATOR FLAG 


BUS 




EVL-- 4 






LOT-' 


10 






ADR-' 


20 






IOU-' 


40 






ISR«« 


100 






UAM-> 


200 






BOE*' 


400 






PNT-- 


1000 






PRI-- 


2000 






IXE-' 


4000 






IBE-- 


10000 






IER-« 


20000 






lOE*' 


40000 






HOE-- 100000 






KT11 


;DEFINE MEMORY MANAGEMENT 


REGISTERS 


.SBTTL MEMORY 


MANAGEMENT DEFINITIONS 




:*KT11 VECTOR ADDRESS 




MMVEC- 250 






i*KTll STATUS REGISTER ADDRESSES 




SRO- 177572 






SRI- 177574 






SR2- 177576 






SR3- 172516 






.IF NB 






i*USER "I" PAGE 


DESCRIPTOR REGISTERS 




UIPORO- 177600 






UIPDR1- 177602 






UIPDR2- 177604 






UIPDR3" 177606 






UIP0R4- 177610 






UIPDR5- 177612 






UIP0R6- 177614 






UIPDR7- 177616 






.IF NB 






,*USER "D" PAGE 


DESCRIPTOR REGISTORS 




UOPDRO- 177620 






UDP0R1- 177622 






U0PDR2- 177624 






U0PDR3- 177626 






U0PDR4- 177630 






U0PDR5- 177632 






U0PDR6- 177634 






U0P0R7- 177636 






.ENOC 






j*USt 


IR "I" PAGE 


ADDRESS REGISTERS 





SEQ 26 
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UIPARO- 177640 

UIPAR1- 177642 

UIPAR2* 177644 

UIPAR3- 177646 

UIPAR4- 177650 

UIPAR5- 177652 

UIPAR6- 177654 

UIPAR7- 177656 

IF NB 

l*USER ♦'0'» PAGE ADDRESS REGISTERS 

UOPARO- 177660 

U0PAR1- 177662 

U0PAR2- 177664 

U0PAR3- 177666 

UDPAR4- 177670 

UDPAR5- 177672 

U0PAR6- 177674 

U0PAR7- 177676 
.ENDC 
.ENDC 
.IF MB 

I ♦SUPERVISOR W I" PAGE DESCRIPTOR REGISTERS 

SIPORO- 172200 

SIP0R1- 172202 

SIP0R2- 172204 

SIP0R3- 172206 

SIPORO- 172210 

SIP0R5- 172212 

SIPW6- 172214 

SIP0R7- 172216 
.IF W 

■♦SUPERVISOR "D" PAGE DESCRIPTOR REGISTERS 

SOPDRO- 172220 

SOPOR 1- 172222 

S0P0R2- 172224 

SOPORS- 172226 

S0P0R4- 172230 

SDP0R5- 172232 

S0P0R6- 172234 

S0P0R7- 172236 

ENDC 

l •SUPERVISOR "I" PAGE ADDRESS REGISTERS 

SIPARO- 172240 

SIPAR1- 172242 

SIPAR2- 172244 

SIPAR3- 172246 

SIPAR4- 172250 

SIPAR5- 172252 

SIPAR6- 172254 

SIPAP7- 172256 
.IF NB 

■♦SUPERVISOR "0" PACE ADDR&S3 REGISTERS 

50PAR0- 172260 

S0PAR1- 172262 

S0PAR2- 172264 

S0PAR3- 172266 

SOPARft* 172270 



SEQ 27 



CZTKFA TK 25 FRT ENQ FUNC 02 
MEMORY MANAGEMENT DEFINITIONS 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 









C3 
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SDPAR5- 


172272 






SDPAR6- 


172274 






SDPAR7" 


172276 






.ENOC 








.ENOC 








l*KERNEL "I" . AGE 


DESCRIPTOR REGISTI 


KIPORO- 


172300 






KIP0R1- 


172302 






KIP0R2- 


172304 






KIPDR3* 


172306 






KIP0R4- 


172310 






KIP0R5- 


172312 






KIPDR6- 


172314 






KIP0R7* 


172316 






.IF NB 








t*KERNEL , '0 M PAGE 






DESCRIPTOR REGISTERS 




KDPORO- 


172320 






K0PDR1- 


172322 






K0POR2- 


172324 






KDPDR3- 


172326 






K0POR4- 


172330 






K0POR5- 


172332 






K0POR6- 


1/2334 






KDP0R7- 


172336 






.ENOC 








i 'KERNEL H I» PAGE 


ADDRESS 


REGISTERS 


KIPARO* 


172340 






KIPAR1- 


172342 






KIPAR2- 


172344 






KIPAR3- 


172346 






KIPAP4- 


172350 






KIPAR5- 


172352 






KIPAR6- 


172354 






KIPAR7- 


172356 






.IF NB 








l 'KERNEL "0" PAGE 


ADDRESS 


REGISTERS 


KOPARO- 


172360 






K0PAR1- 


172362 






K0PAR2- 


172364 






K0PAR3- 


172366 






KDPAR4- 


172370 






K0PAR5- 


172372 






KDPAR6- 


172374 






KDPAR7* 


172376 






»ENQC 









SEQ 28 
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SEQ 29 



786 




787 




788 




789 




790 




791 




792 


000004 


793 


000060 


794 


177560 


795 


177562 


796 




797 




798 




799 




800 




801 


100000 


802 


040000 


803 


020000 


804 


010000 


805 


004000 


806 


002000 


807 


001400 


808 


000200 


809 


000100 


810 


000060 


811 


000016 


812 




813 




814 




815 




*U6 




817 




818 




819 




820 




821 


100000 


822 


040000 


823 


020000 


824 


010000 


825 


004000 


826 


002000 


827 


001000 


828 


000400 


829 


000200 


830 


000100 


831 


000040 


832 


000020 


833 


000010 


834 


000004 


835 


000002 


836 


000001 


837 




838 




839 




840 




841 




842 





.SBTTL TK-25 REGISTER AND PACKET DEFINITIONS 



\ SOME GENERAL EQUATES 



ERRVEC-- 


4 


TTIVEC-- 


60 


TTICSR-- 


177560 


TTIBFR-- 


177562 



1 POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
1 INTERRUPT VECTOR FOR CONSOLE INPUT 
1 BUS ADORESS OF CONSOLE INPUT 
1 CONSOLE INPUT DATA BUFFER 



iBIT DEFINITIONS FOR TSSR REGISTER 



SC- 


BIT15 


BIE« 


BIT14 


SCE- 


BIT13 


RMR- 


BIT12 


NXM- 


BIT11 


NBA- 


BIT10 


HIADOR- 


BIT9JBIT8 


SSR- 


BIT7 


OFL- 


BIT6 


FATERR- 


BIT4JBIT5 


TERCLS* 


0IT3JBIT2SBIT1 



t SPECIAL CONDITION 

1 BUS INTERFACE ERROR 

1 SANITY CHECK ERROR 

iMOOIFICATION REFUSED 

iNONEXISTANT MEMORY ERROR 

I NEED BUFFER ADORESS 

lEXTENDED ADOF e .SS BITS 

iSUB SYSTEM READY 

lOFF LINE BIT 

iFATAL TERMINATION ERROR COOES 

» TERMINATION CODES 



J ♦ 

iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 

(CXSTO) 

1 

1 - 



XSOTMK- 


BIT15 


XSORLS- 


BIT14 


XSOLET- 


BIT13 


XSORLL- 


BIT12 


XSOWLE- 


BIT11 


XSONEF- 


BIT10 


XSOILC- 


BIT9 


XSOILA- 


BIT8 


XSOMOT- 


BIT7 


XSOONL- 


BIT6 


XSOIE* 


BITS 


XSOVCK- 


BIT4 


XSOPED- 


BITS 


XSOWLK- 


BIT2 


XSOBOT- 


BIT1 


XSOEOT- 


BITO 



iTAPE MARK DETECTED 

iRECORD LENGTH SHORT 

1 LOGICAL END OF TAPE 

1 RECORD LENGTH LONG 

tURITE LOCK ERROR 

iNON EXECUTABLE FUNCTION 

» ILLEGAL COTtlANO 

1 ILLEGAL ADORESS 

j TAPE IN MOTION 

i TRANSPORT ON LINE 

1 INTERRUPT ENABLE 

iVOLUME CHECK BIT 

I PHASE ENCOOED DRIVE 

iWRITE LOCKED 

l BEGINNING OF TAPE 

I END OF TAPE 



jBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
j(XSTl) 

» - 



3 
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SEQ 30 



643 


100OO0 


844 


040000 


845 


020000 


846 


017375 


847 


000400 


848 


000002 


849 




850 




851 




852 




853 




854 


100000 


855 


040000 


856 


035400 


857 


002000 


858 


0OO2O0 


859 


000100 


860 


000077 


861 


000007 


862 




863 




864 




865 




866 




867 


177400 


868 


000200 


869 


000100 


870 


000040 


871 


000020 


872 


OOOOIO 


873 


000006 


874 


000001 


875 




8?6 




877 




878 




879 




880 


100000 


881 


040000 


882 


020OO0 


863 


017400 


884 


000377 


885 




886 




887 




888 




889 




890 




891 




892 




093 


0O0OO6 


894 


000006 


895 




896 




897 




898 




899 





Xl.DLT < 
XI. SPARE' 
XI. COR ' 
Xl.MBZ ■ 
Xl.RBP 
Xl.UNC - 

IbIT DEFINITIONS FOR EXTENOED STATUS REGISTER 2 
ICXST2) 



BIT15 (DATA LATE 

BIT 14 ,NOT USED 

BIT13 jCORRECTABLE DATA ERROR 

BIT12*BITU*BIT10*BIT9*BIT7*BIT6*BIT5*BIT4*BIT3*BIT2*BIT0 (ALWAYS 

BITS ,READ BUS PARITY ERROR 

BIT1 i UNCORRECTABLE DATA OR HARD ERROR 



X2.0PM 

X2.RCE 

X2. SPARE 

X2,WCF 

X2.EXTF 

X2.BUFE 

X2.REV 

X2.UNIT 

iBIT DEFINITIONS FOR EXTENOED STATUS REGISTER 3 
i(XST3) 



BIT15 lOPERATION IN PROGRESS CTAPE MOVING) 

BIT14 |RAh CHECKSUM ERROR 

BIT13*BITl2*BITll*BIT9*Plld iNOT USED BY TK-25 (ALWAYS-O) 

BIT10 iWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

BIT7 ,IF WRITE CHAR CMD THEN - EXTENOED FEATURES ENABLED 

BIT6 | IF WRITE CHAR CflD THEN - BUFFERING ENABLED 

000077 | IF WRITE CHAR CMO THEN - MICROCOOE REVISION LEVEL 

BIT2>BIT1*BIT0 i IF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 



1 - 




X3.M0E « 


- 177400 


X3. SPARE- 


• BIT7 


X3.0PI ■ 


• BIT6 


X3.REV ■ 


• BIT5 


X3.TRF ■ 


• BIT4 


X3.0CK ■ 


■ BIT3 


X3.MBZ - 


■BIT2»BIU 


X3.RIB • 


■ BITO 



;MICR0-DIAGNOSTIC ERROR CODE 

j NOT USED BY TK-25 

lOPERATION INCOMPLETE 

^REVERSE 

I TRANSPORT RESPONSE FAILURE 

iDENSITY CHECK 

iNOT JSED ALWAYS 

I REVERSE INTO BOT 



iBIT DEFINITIONS FOR EXTENOED STATUS REGISTER 4 
tCXST4) 

I 



X4.HSP 
X4.RCE 
X4.TSM 

X4.MBZ 
X4.WRC 



I ♦ 

t 



B1T15 i HIGH SPEED 

BIT14 jRETRY COUNT EXCEEDED 

BIT13 , TRANSPORT SPECIAL MOOE 

BIU2*BIT11*BIT10*BIT9»BIT8 iNOT USED ALWAYS 
000377 tWRITE RETRY COUNT FIELD 



jTSSR TERMINATION CODES (BIT 0-2) 



j - 



I ♦ 



TSREJ- 3*2 
UNREC- 6 



iCOMMANO REJECTED 
i UNRECOVERABLE ERROR 



» DEVICE REGISTER OFFSETS 

1 



CZTKFA TK-25 FRT END 
TK-25 REGISTER ANO P 



FUNC *2 MACRj 
ACKET DEFINITION! 
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SEQ 31 



900 




901 




902 


177776 


903 


177776 


904 


177776 


905 


177776 


906 


177777 


907 


177777 


'X)8 


000000 


909 


000001 


910 




911 




912 




913 




914 


000003 


915 




916 




917 




918 




919 


000017 


920 


000013 


921 


000012 


922 


000011 


923 


OOOOIO 


924 


000006 


925 


000005 


926 


000004 


927 


000001 


928 




929 




^30 




931 




932 


10OOO0 


933 


040000 


934 


020OO0 


935 


OlOOOO 


936 


007400 


937 


000200 


938 


000140 


939 


00003 


940 




941 




942 




943 


OOOOOO 


944 


000400 


945 


001000 


946 


002000 


9*7 


002400 


948 




949 




950 




951 




952 


0O0167 


953 


0002CO 


954 


000020 


955 


000027 


956 


000104 



l - 



TSBA-* 


-2 


TSBAL-- 


-2 


TSDB-- 


-2 


TSD6L-- 


-2 


TSBAH-- 


-1 


TSDBH-- 


-1 


TSSR-- 





TSSRH-- 


1 



; TSOB ADDRESS BIT DEFINITIONS 
A1716 - BIT1*BIT0 



I ♦ 



COMMAND DEFINITIONS 



l " 




P.GETSTAT 


• 17 


P.INIT 


• 13 


P» CONTROL 


- 12 


P. FORMAT 


- 11 


P. POSITION 


» 10 


P.WRTSUB 


- 6 


P. WRITE 


- 5 


P.WRTCHAR 


- 4 


P. RE AD 


• 1 



iTSDB/TSBA REGISTER 
lYSDB/TSBA REGISTER 

iTSDB/TSBA REGISTER HIGH BYTE 

iTSSR REGISTER 

jTSSR REGISTER HIGH BYTE 



lADDRESS BITS 17; 16 ARE IN 1:0 



,GET STATUS 

i INITIALIZE 

I CONTROL COMMANDS 

i FORMAT 

iPOSITION 

I SUBSYSTEM WRITE 

iWRITE 

iWRITE CHARACTERISTICS 

iREAD 



» COMMAND PACKET HEADER WORD BIT DEFINITIONS 



P.ACK - BIT15 

P.CVC - IPU4 

P.OPP * UIT13 

P.SWB * BIT12 

P.MOOE • BITU!BIT10!BIT9!BIT8 

P. IE - BIT7 

P.FMT- BIT6JB1T5 

P.CMD - 37 

j CONTROL COMMAND MODE COOES 



BITS 



I BUFFER AVAIL FOR CONTROLLER 

j CLEAR VOLUME CHECK 

I REVERSE SEQUENCE OF DATA 

I SWAP BYTES IN MEMORY 

lEXTEMDED COMMAND MOOE FIELD 

I INTERRUPT ENABLE 

iPACKET HEADER TYPE CALWAYS-O) 

j MAJOR COMMAND FIELD 



PC. RELEASE 
PC. REWIND 
PC.NOOP 
PC. IEREW 
PC. ERASE 



0*256. 
1*256. 
2*256. 
4*256. 
5*256. 



I RELEASE BUFFER 

jREWIhO 

I NO -Of 

I REWIND IMMEDIATE 

I SECURITY ERASE 



INTERRUPT 



i ♦ 



CONTROLLER RAM DEFINITIONS 



RMCH8EG - 
RMCHENO ■ 
RMPKTBEG 
RMPKTEND' 
RMMSGBEG' 



167 

200 
20 
27 
104 



iCHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
iCHARACTERISTICS 10 DATA END RAM ADDRESS 
j COMMAND PACKET BEGIN RAM AODRESS 
{COMMAND PACKET END RAM ADDRESS 
jMESSAGE BUFFER BEGIN RAM ADDRESS 



G3 



? 



ZTKFA TK-P5 FRT END FUNC *2 MACRO M1200 
K-25 REGISTER AND PACKET DEFINITIONS 
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SEQ 32 



RTS 



957 


000117 


958 




959 




960 




961 




962 




963 




964 


0O0OO6 


965 


000010 


966 


000012 


967 


000014 


968 


000016 


969 




970 




971 




972 




973 




974 




975 




976 




977 


OOO002 


978 


0O0OO4 


979 


000006 


980 




981 


000010 


982 




983 




984 




985 




986 


000000 


987 


OOOOOl 


988 


000002 


989 


000004 


990 




991 




992 




993 




994 


000000 


995 


OOOOOl 


996 


000002 


997 


000003 


998 


0000O4 


999 


000005 


10O0 


000006 


1001 


000007 


1002 


000010 


1003 


0O0011 


1004 


000020 


1005 


000021 


1006 


00002? 


1007 


0O0023 


1008 


000024 


1009 




1010 




1011 




1012 




1013 


000200 



RMMSGEND- 117 
I* 

[REGISTER DEFINITIONS IN THE MESSAGE BUFFER 

i 



iMESSAGE BUFFER END RAM ADDRESS 



XSTO-* 


6 


XST1-- 


8. 


XST2-- 


10. 


XST3-- 


12, 


XST4-* 


14. 



lEXTENDED STATUS REGISTER (WORD 4) 
lEXTENDED STATUS REGISTER 1 (WORD 5) 
lEXTENDED STATUS REGISTER 2 (WORD 6) 
lEXTENDED STATUS REGISTER 3 (WORD 7) 
j EXTENDED STATUS REGISTER 4 (WORD 8) 



i * 



i OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



l - 



PKLOW 
PKHI 
PKBCNT - 

EXBCNT-10 



2 

4 
6 



tLOW ORDER CHARACTERISTIC DATA POINTER 
jHIGH ORDER CHARACTERISTIC DATA POINTER 
jNUMBER OF BYTES IN DATA PACKET 

jNUMBER OF BYTES IN EXTENDED DATA PACKET 



iDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 



J - 



BSELO 


- 


BSEL1 


- 1 


SEL2 


- 2 


SELDATA 


- 4 


i * 

jBSELO SELECT CODES 


PW.NOP 


- 


PU. RDRAM 


• 1 


PW.WTRAM 


- 2 


PW.RFIFO 


- 3 


PU.WFIFO 


- 4 


PW.RDSTAT 


• 5 


PW.WCTL 


- 6 


PW.WFMT 


- 7 


PW.WMISC 


• 10 


PW.WNPR 


- 11 


PU.D22 


- 20 


PW.D11 


- 2i 


PU.D13 


- 22 


PU.N01311 


- 23 


PW.RDEXT 


- 24 



iBYTE 

iBYTE 1 
iWORD 2 
j WORD 3 



iNO-OP 

jREAD RAM 

jWRITE RAM 

iREAD FIFO 

jWRITE FIFO 

jREAD STATUS 

iWRITE TAPE CONTROL 

j WRITE TAPE FORMAT 

jWRITE MISCELLANEOUS 

\ WRITE NPR CONTROL 

iDO MICROTEST 22 

iDO MICROTEST 11 

iDO MICROTEST 13 

iDISABLE MICROTEST 11 AND 13 



iREAD EXT, TAPE STATUS ("NOT SUPPORTED BY ALL TRANSPQ 



jBSELl CODES FOR WRITE TAPE CONTROL 



WC.IFAD 



BIT7 



tIFAD - FORMATTER ADDRESS 



CZTKFA TK-; 
TK-25 REGIi 



MWI 



FUNC *; 
ACKET Dl 



•FINITI 



MACRt 
ON! 
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SEQ 33 



1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1O40 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
' 1 j9 
1O6O 
1U..1 
1062 
1063 
1064 
1065 
1066 
1067 
1066 
1069 
1070 



000100 
000040 
000020 
0OO010 
000004 
000002 
000001 



000200 
000100 
000040 
000020 
0000 10 
000004 
000002 
OOOOOl 



000200 
000020 
000010 
000006 
OOOOOl 



000000 
0O0O02 
00O0O4 

000006 



000200 
000100 
000040 
000020 



000200 
000100 
000040 
000020 
000010 
000004 
000003 
100000 
040000 
020000 



WC.IOTAO - BIT6 

WC.IlTAD • BITS 

WC.I5RESV ■ BIT4 

UC.IREU - BIT3 

WC.IRWU - BIT2 

WC.IFEN - BIT1 

UC.IGO - BITO 

iBSELl CODES FOR WRITE FORMAT 



jITADO 


- TRANSPORT ADDRESS 


BIT 


jITADl 


- TRANSPORT ADDRESS 


BIT 1 


IIRESV5 


- RESERVED 05 




lIREU 


- REWINO 




iIRWU 


- REWIND ANO UNLOAD 




lIFEN 


- FORHATTER ENABLE 




jGO 







WF.IHISP 

WF.IWRT 

WF . IR .V 

WF.IWFM 

WF.IEDIT 

WF.IERASE 

WF.I3RESV 

WF.I4RESV 



J ♦ 



BIT7 
BIT6 
BIT5 
BIT4 
BIT3 
BIT2 
BIT1 
BITO 



IIHISP 


- HIGH SPEED 


iIWRT 


- WRITE 


jIREV 


- REVERSE 


tlWFM 


- WRITE FILE MARK 


»IEDIT 


- EDIT 


iIERASE 


- ERASE 


iIRESV3 


- RESERVED 03 


JIRESV4 


- RESERVED £4 



iBSELl COOES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS. EXT 


- BIT7 


MS.RSFIFO 


- BIT4 


MS.RSTAPE 


- BIT3 


MS, ATTN 


» BIT2!BIT1 


MS.RSD 


- BITO 



j MS. ATTN SUBCOOES 

MSA. NOP - 0*2 
MSA. VOL - 1*2 
MSA.NRAM- 2*2 
MSA.FRAM- 3*2 



l INVERT SENSE OF EXTENDED FEATURES SWITCH 
iRESET FIFO AND INPUT PARITY ERRORR 
jRESET TAPE STATUS IN 2 FLIP-FLOPS 
lATTENTION TRIGGER FIELD 
jRESET TIMER A,B THEN DELAY TIMES IN SEL2 



i NO -OP (NOTHING TRIGGERED) 

jSIMULATE ON-LINE/OFF-LINE TRANSITION 

tFORCE NON-FATAL RAM ERROR (FORCES ERRCOOE 54) 

i FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



i 



WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 



NP.IR • BIT7 

NP.OUT ■ BIT6 

NP.LOOP - BIT5 

NP.WRP - BIT4 

I * 

j READ STATUS MESSAGE BUFFER BIT DEFINITIONS 



I INTERRUPT REQUEST (0-1 TRANSITION) 

jTAPE DATA DIRECTION OUT (0- IN) 

I ENABLE TRANSPORT LOOPBACK 

jWRITE CORRECT PARITY (SET-0 TO WRITE WRONG) 



S2.DIM 

S2.ILW 

S2.0UTRDY 

S2.INRDY 

S2.ATIMR 

S2.BTIMR 

S2.UNDEF 

Sl.PARIN 

S1.I2RESV 

SI.I1RESV 



BIT7 

BIT6 

BIT5 

BIT4 

BITS 

BIT2 

BIT1.BIT0 

BIT15 

BIT14 

BIT13 



UCRD *9 BYTE 2 



(UNDEFINED) 
WORD *8 BYTE 



DATA IN MISS 
ILW H 
OUT ROY H 
IN ROY H 
TIMER A FLAG H 
TIMER B FLAG H 

PMRIN H 

IRESV2 

IRESV1 



13 



w&*f&m*uwm UfudM 
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SEQ 34 



1071 


010000 


1072 


004000 


1073 


002000 


1074 


001000 


1075 


000400 


1076 


000200 


ion 


000100 


1078 


000040 


1079 


000020 


1080 


000010 


1081 


000004 


1082 


000002 


1083 


000001 


1084 




1085 




1086 


177560 


1087 


177562 


1086 


17 7564 


1089 


177566 


1090 


007776 


1091 




1092 




1093 




1094 


174400 


1095 


174402 


1096 


174404 


1097 


174406 


1098 




1099 




1100 




1101 




1102 




1103 




1104 




1105 




1106 


00OO04 


1107 


0OOO06 


1108 


000010 


1109 


00O014 


1110 


000016 


1111 




1112 




1113 




1114 




1115 




1116 




1117 


000001 


1118 


ooooi i 


1119 


177730 


1120 


00OO06 


1121 


000177 


1122 


100200 


1123 




1124 




1125 




1126 




1127 


177560 



SI, 
SI. 
Si, 
SI. 

SI. 

so. 
so. 
so. 
so, 
so. 
so. 
so. 
so. 
I 



IEOT 

IIOENT 

ICER 

IFMK 

IHER 

ISPEED 

IRDY 

IONL 

ILDP 

IDBY 

IRWO 

IFBY 

IFPT 



BIT12 

BIT11 

BIT10 

BIT9 

BIT8 

BIT7 

BIT6 

BITS 

BIT4 

BIT3 

BIT2 

BIT1 

BITO 



SPECIAL KEYWORD STUFF FOR MOVER PROGRAM 



TKS 
TKB 
TPS 
TPB 
HIMEM 



-177560 
-177562 
■177564 
-177566 
•007776 



CONTROLLER DEFINITIONS 



CSR 
BAR 
DAR 

MPR 



■174400 
174402 
174404 
174406 



CONTROLLER COMMANOS 



DLGETS 


■4 


SEEK 


-6 


DLR'JHD 


-10 


READ 


•14 


DLRDNH 


•16 



I 
J 


READY 


•1 




DLSR 


•13 




DLERR 


-177730 




DLUN 


-6 




DLCYL 


•000177 


l 
I 

5 


DLDNER 


•100200 









IEGT 


L 










IIDENT 


H 








ICER 


H 










IFMK 


H 










IHER 


H 




WORD 


0Q 


BYTE 


ISPEED 


H 








IRDY 


L 










IONL 


L 










ILDP 


L 










IDBY 


L 










IRWO 


I. 










IFBY 


L 










IFPT 


I, 





KEYBOARD STATUS REGISTER 
KEYBOARD DATA REGISTER 
CONSOLE PRINTER STATUS REGISTER 
CONSOLE PRINTER DATA REGISTER 
HIGH MEMORY MASK VALUE 



j STATUS AND CONTROL REGISTER 
|DL ADDRESS REGISTER 
jPLATTER ADDRESS 
jMULTIPURPOSE REGISTER 



jGET STATUS CC**1AN0 

{SEEK TRACK AND HEAD SELECT 

iREAD SECTOR HEADER 

iREAO COMMAND 

i READ SECTOR NO HEADER CHECK 



TTICSR 



17756C 



jDRIVE READY BIT IN STATUS REG 

I STATUS AND RESET 

iMASK FOR COVER OPEN 

j HEADS UNLOADED 

iMASK FOR CYLINOER ADDRESS 

iDONE SET OR ERROR SET BITS 



jKEYBOARD INPUT STATUS 



J3 



CZTKFA TK 25 FRT END FUNC *2 MACRO M1200 
TK-25 REGISTER AND PACKET DEFINITIONS 
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SEQ 35 



1128 


177562 


1129 


177564 


1130 


177566 


1131 





TTIBFR 
TTOCSR 
TTOBFR 



177562 
177564 
177566 



iKEYBOARO DATA REGISTER 

j CONSOLE PRINTER STATUS REGISTER 

j CONSOLE PRINTER DATA REGISTER 



CZTKI-A TK-25 FRT END FUNC 02 
SPECIAL MACROS AMD OPDEFS. 

1133 

1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
114? 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1166 
1187 
1188 
1189 



l<3 
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SEQ 36 



.SBTTL SPECIAL MACROS AND OPDEFS 



i SAVE GENERAL REGS 1 TO 5 
J - 

.MACRO SAVREG 
JSR R5.REGSAV 
.ENDM 

I MACRO TO FORCE AN ERROR 

.MACRO FORCERROR TAG.NOTSSR 

.NtlST 

.IIF NOF LISTALL, .NLIST 

.LIST 

.IF B NOTSSR 

MOV TSSR(R5^,R1 
.ENDC 

MOV FORCER, FORCER 

BNE TAG 
.NLIST 

.IIF NOF LISTALL, .LIST 
.LIST 
.ENOM 



j READ TSSR 

j IS FORCER SET? (LEAVE C BIT ALONE) 
j BR IF YES 



;IS FORCER NEGATIVE? 
jBR IF YES 



t MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
; WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

I SO TO FORCE ERRORS ANO EXIT ON 1 ERROR SET 
i FORCER TO 177777 

TO FORCE ERRORS ANO ITERATIONS SET FORCER TO 1. 
t - 

.MACRO FORCF.XIT TAG 
.NLIST 

.IIF NDF LISTALL, .NLIST 
.LIST 

MOV FORCER, FORCER 

BMI TAG 
.NLIST 

.IIF NOF LISTALL, .LIST 
.LIST 
.ENOM 

i MACRO TO INCREMENT ERROR COUNTS 

t - 

.MACRO NCXT.ERRNO 

.NLIST 

II J. IIF NOF LISTALL, .NLIST 

ERRN0-ERRN0*1 
in. IIF NOF LISTALL, .LIST 
.LIST 
.ENDM 

I ♦ 



^iS^a^sWBp^.* 2 
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SEQ 37 



1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

120 7 

1208 002144 

1209 

1210 

1211 

121? 

12X3 



j MACRO TO PERFORM XOR 



000000 



.MACRO 


XOR A.B 


MOV 


A.-C3P) 


BIC 


B.CSP) 


BIC 


A,B 


BIS 


<SP)*»B 


,ENOM 




EN-0 




.SBTTL 


FORCER - F 



} INITIALIZE ERROR NUMBER 
- FORCE ERROR FLAG 



: THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
j TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



000000 



FORCER a 







i FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 
i - BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 
I - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 



CZTKFA TK-25 FRT END FUNC 02 
GLOBAL DATA SECTION 

1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 

1226 002146 000000 

1227 002150 000000 
1226 002152 000000 

1229 002154 000000 

1230 002156 000224 

1231 002160 000200 

1232 002162 000000 

1233 002164 000000 

1234 002166 OOOOOO 

1235 002170 OOOOOO 

1236 002172 OOOOOO 

1237 002174 OOOOOO 

1238 002176 OOOOOO 

1239 002200 0OO030 

1240 002202 OOOOOO 

1241 002204 OOOOOO 

1242 002206 

1243 002246 OOOOOO 

1244 002250 OOOOOO 

1245 002252 OOOOOO 

1246 002254 OOOOOO 
124 7 002256 OOOOOO 

1248 002260 OOOOOO 

1249 002262 OOOOOO 

1250 002264 OOOOOO 

1251 002266 

1252 002432 

1253 002576 

1254 002716 OOOOOO 
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SEQ 38 



.SBTTL GLOBAL DATA SECTION 



* ♦ 



j THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
> IN MORE THAN ONE TEST, 



;THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME, 
j SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P -TABLE. 



EPPTSWj x 

UNITNt: 

QVP:; 

CSRAODR:: 

IVEC:: 

IPRI: : 

T5TCNT: 

LOOPCNT 

DEVCNT: 

KATFLG: 

INTRECV 

BENBSW; 

EXPO* 

RECV: 

ERRHI 

ERRLO 

RAMOATA:: 

RAMSIZ;: 

RCVHIADD: : 

RCVLOADD: : 

COUNT : : 

DATA:: 

TSTFLAG:: 

TSTPTR 

PRMNO: 

EXPM3G 

RECMSG 

TMPBFR 

MESBFA 



WORD 





WORD 





WORD 





WORD 





WORD 


224 


WORD 


PRI04 


WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





3LKW 


16. 


WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





Wf RD 





BlKB 


100. 


BLKB 


100. 


BLKB 


80. 


WORD 






iPRINT SWITCH 

jUNIT ♦ UNDER TEST. 

I QUICK VERIFY FLAG. 

j ADDRESS Of CSR FOR CURRENT DEVICE 

j INTERRUPT VECTOR 

j INTERRUPT PRIORITY. 

iNUMBER Of TESTS RUN IN THIS PASS 

{REMAINING ITERATION COUNT FOR TEST 

I NUMBER OF DEVICE UNOER TEST 

j SET IF FATAL ERROR IS DETECTED IN TEST 

i SET IF TAPE INTERRUPT WAS RECEIVED 

j BUFFER ENABLE SWITCH SW 0-0FF,l-0N 

I EXPECTED RAM DATA FOR PRAMPKT ROUTINE 

i RECEIVED RAM DATA FOR PRAMPKT ROUTINE 

i HIGH AOORESS MEMORY ERROR 

j LOW ADDRESS MEMORY ERROR 

iDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

j RAM DATA SIZE FOR PRAMPKT ROUTINE 

I RECEIVED BUFFER HIGH ADDRESS 

i RECEIVED BUFFER LOW ADDRESS 

I TEST COUNT PATTERN 

I TEST DATA 

j TEST FLAG WORD 

tTSTBLK POINTER 

iPRINT ROUTINE TEMP 

{EXPECTED MESSAGE BUFFER DATA 

{RECEIVED MESSAGE BUFFER DATA 

» TEMPORARY STORACE FOR PRINT 

; STORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 



CZTKFA TK-25 FRT END FUNC #2 
TSTBLK - TEST DATA TABLE 
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SEQ 39 



1256 






1257 






1258 






1259 






1260 






1261 






1262 






1263 






1264 






1265 






1266 






1267 






1268 






1269 






1270 






1271 






1272 


002720 




1273 


002720 


oooooo 


1274 


002722 


177777 


1275 


002724 


000001 


1276 


002726 


000002 


1277 


002730 


000004 


1278 


002732 


OOOO10 


1279 


002754 


OOOC20 


1280 


002736 


000040 


1281 


002740 


000100 


1282 


002742 


000200 


1283 


002744 


O00400 


1284 


002746 


O010O0 


1285 


002750 


O020O0 


1286 


002752 


004000 


1287 


002754 


010000 


1288 


002756 


020000 


1289 


002760 


040000 


1290 


002762 


100000 


1291 


002764 


177776 


1292 


002766 


177775 


1293 


002770 


177773 


1294 


002772 


177767 


1295 


002774 


177757 


1296 


002776 


177737 


1297 


003000 


177677 


1298 


003002 


177577 


1299 


0030O4 


177377 


1300 


003006 


176777 


1301 


005010 


175777 


1302 


003012 


173777 


1303 


003014 


167/77 


1304 


003016 


157777 


1305 


003020 


137777 


1306 


003022 


077777 


1*07 


003024 


125252 


1508 


003026 


052525 


1309 




003030 



.SBTTL TSTBLK - TEST DATA TABLE 



;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TE'TS 
;IN SEQUENCE THE DATA IS: 



t ALL ZEROS 




; ALL ONES 




WALKING 


ONES 




; WALKING 


ZEROS 




; ALTERNATING ONES AND ZEROS 

» 


• 

TSTBLK:i 






.WORD 







.WORD 


177777 




.WORD 


BITO 




.WORD 


BIT1 




.WORD 


BIT2 




.WORD 


dIT3 




.WORD 


BIT4 




.WORD 


BIT5 




.WORD 


BIT6 




.WORD 


BIT7 




.WORD 


BIT8 




.WORD 


BIT9 




.WORD 


BIT10 




.WORO 


BIT11 




.WORD 


BIT12 




.WORD 


BIT13 




.WORD 


BIT14 




.WORD 


BIT15 




.WORD 


tCBITO 




.WORD 


tCBITl 




.WORD 


1XBIT2 




.WORD 


tCBIT3 




.WORD 


tCBIT4 




.WORD 


tCBIT5 




.WORD 


tCBIT6 




.WORD 


tCBIT7 




.WORO 


tCBIT8 




.WORD 


-•CBIT9 




. WORD 


tCBITIO 




.WORD 


tCBITll 




.WORD 


tCBIT12 




.WORD 


tCBITIS 




.WORD 


tCBIT14 




.WORD 


tCBIT15 




.WORD 


125252 




.WORD 


052525 





{ALL ZEROS 

j ALL ONES 

{DATA FOR WALKING ONES 



j DATA FOR WALKING ZEROS 



TBLEND ; 



; ALTERNATING ONES. ZEROS 

iALTERNATXNG ONES. £ER0 OPPOSITE FROM ABOVE 



B4 



CZTKFA TK-<>5 FRT END FUNC 02 
GLOBAL ENVIRONMENT STORAGE 

1311 
1312 
1313 
1314 

1315 003030 

1316 003040 
1317 
1318 
1319 

1320 003060 
1321 

1322 003062 
1323 

1324 003064 

1325 003066 

1326 003070 

1327 003072 

1328 003074 

1329 003076 

1330 003100 
1331 
1332 

1333 003102 

1334 005104 

1335 003106 

1336 003110 

1337 003112 

1338 003114 

1339 003116 

1340 003116 

1341 003120 

1342 003122 

1343 003124 

1344 003126 

1345 003130 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 

1355 003130 

1356 003330 000000 
1357 

1358 003332 000000 
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SEQ 40 



000000 100000 
000000 000000 



000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
002000 
000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 

177777 



.SBTTL GLOBAL ENVIRONMENT STORAGE 



I STORAGE FOR DEVICE REGISTERS 



oooooo 


DUMMY 


0, 


100000,0,0 


oooooo 


0, 


0,0,0 


»o,o,o,o 




DUFLG:; 




• WORD 




NODEVtt 




.WORD 




TEMPI:: 




.WORD 




TEMP2: 






.WORD 




J'XCOMM 


i 




.W0R0 




F^EE : : 




.WORD 




FRESIZ:: 




.WORD 




FREEHlj 




.W0R0 




KTFLG:: 




♦ WORD 




Kl ENABLE: 




.WORD 




PST32W 






.WORD 




SIFLAG 






.WORD 




BAOOAT 






.W0R0 




GOOAT: 






.WORD 




LOOPFL 


• 




.WORD 




CTAB:: 








CTABM: 






.WORD 



.WORD 
.WORD 
.WORO 
.W0R0 



















2000 














-1 



CTABEm 
ERROR STATISTICS TABLE (1 WCXO PER 



I DUMMY DEVICE REGISTERS... 
I,.. TOR MULTI-UNIT CHECKOUT. 



j "DROPPED UNIT" FLAG. 

I INHIBITS COOE IN "CLEAN-UP". 

I FLAG TO SAY NO DEVICE. 

» SOME TEMP LOCATIONS. 

iXXDP* COMM BLOCK POINTER. 

1 1ST FREE MEMORY ADDRESS... 

I... AND SIZE (IN WOROS). 

I LAST WORO IN FREE SPACE 

|KTll t f«M AVAIL FLAG - 

»- .WORO • <24K OR NO KT - 

!- HZ - >24K AND KT. 

I SET BY TEST ROUTINES TO FLAG >28K UNOER TEST 

|32W BLOCK ADDRESS FOR 32K START 

! ACTUAL DATA 
jEXPECTED DATA 

I CONFIGURATION TABLES. 
iCONFIG WORK, 



lEND OF MEM fABLE. 
UNIT), 64 UNITS MAX: 





100000 

10XXXX 

160000 

160001 

14XXXX 



UNIT NOT TESTED 

UNIT ONLINE, NO ERRORS 

UNIT ONLINE. ENCOUNTERED XXXX ERRORS 

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED. NOT IDLE AT START 

UNIT DROPPED* ENCOUNTERED XXXX ERRORS 



ERTABL: 
ERTABE: 



.BLKW 

.WORD 



64* 

Q 



SKIPT; ,WORD 



ii«SKIP SUBTEST O-NO SKIP Of SUBTEST 



simt }hp&%hm func «* macro m20 ° ™-*™-** 08«K 
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SEQ 41 



1360 

1361 

136? 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 003334 
003334 
003334 

1374 

1375 

1376 

1377 

1378 003342 
003342 
003342 



1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 



005400 
003420 
003440 
003443 
003447 
003453 
003457 
003463 
003467 
003474 
003501 
003505 
003511 
003516 
003523 
003530 
003535 
003542 

003550 
003603 
003636 
003675 
003716 
003756 
004015 
004021 
004050 



124 



113 



055 



103 



132 



124 



005440 
003501 
123 
102 
123 
122 
116 
116 
102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 
040 



003443 
003505 
103 
111 
103 
115 
130 
102 
111 
111 
123 
106 
111 
111 
111 
111 
111 
111 

123 
123 

040 
101 
101 

101 
116 
040 
040 



003447 
003511 
000 
105 
105 
122 
115 
101 
124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
040 
040 
045 
125 
ill 



.SBTTL GLOBAL TEXT MESSAGES 
»♦♦ 

\ THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
I MESSAGES, ANO ASCII INFORMATION THAT ARE USED IN 
l MORE THAN ONE TEST, 
I - - 



i NAMES OF DEVICES SUPPORTED 

\ - 

DEVTYP <TK-25> 
LIDVTYPn 

.ASCIZ /TK-25/ 
.EVEN 

l TEST DESCRIPTION 

DESCRIPT <CZTKFA TK-25 FRT END FUNC *2> 
LIDESC:: 

.ASCiZ /CZTKFA TK-25 FRT END FUNC 02/ 
.EVEN 

IbIT TO ASCII CONVERSION FOR TSSR REGISTER 

x - 



II, 21. 3$. 41. 51, 61. 71, 8$ 

91, 101, 11 1, 121, 131, 14 1, 151, 16* 



TSSRBZTn .WORD 

.WORD 

II: .ASCIZ 'SC 

21: .ASCIZ BIE' 

31 j .ASCIZ SCE' 

41: .ASCIZ 'RMR' 

51: .ASCIZ 'NXM' 

61: .ASCIZ 'NBA' 

71: .ASCIZ 'BIT9' 

81: .ASCIZ 'BIT8* 

91: .ASCIZ 'SSR' 

10$: .ASCIZ 'OFL' 

111: .ASCIZ 'BIT5' 

121: .ASCIZ »BIT4' 

131: .ASCIZ »BIT3* 

141: .ASCIZ 'BIT2' 

151: .ASCIZ 'BIT1' 

161: .ASCIZ *BIT0' 

.EVEN 

SFIERR: .ASCIZ 'TSSR ERROR AFTER SOFT INIT' 

SFMERR: .ASCIZ 'TSSR ERROR AFTER BUS RESET* 

NXR: .ASCIZ / NON-EXISTANT DEVICE REGISTER/ 

NXRX: .ASCIZ /*A ADDRESS t #06/ 

TSSX: .ASCII >tJA TSBA.TSSR EXP'O: *06*A,*06*N/ 

.ASCIZ /tiA TSBA,TSSR REC'D: #06t*A t *06/ 

FUSI: .ASCII /#N*A/ 

USIt .ASCIZ / UNEXPECTED INTERRUPT/ 

NSIi , ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 



&Mt ttx^UfM FUNC ° 2 MACR ° M120 ° 20-APP-84 08,12 
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SEQ 42 



1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 



004113 
004117 
0O4154 
004176 
004233 
004305 
004355 

004425 
004426 
004431 
004465 
004541 
004643 
004711 
004 754 
005011 
005104 



045 
040 
040 

045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 



116 
040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
122 
123 
123 



045 FNOINTRs .ASCII /#N#A/ 

116 NOINTR: , ASCIZ / NO INTERRUPT WAS GENERATED/ 

111 IFAULT: .ASCIZ / INTERRUPT FAULT/ 

040 INTX; .ASCIZ /#A CPU PCj #06#A TSBA: #06/ 

042 NOINITj .ASCIZ / "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

042 NSINIT: .ASCIZ / "SOFT-INIT" DIDN'T INITIALIZE THE DPU/ 

042 BRINIT: .ASCIZ / "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

NUL: .ASCIZ // 

000 NULCR; .ASCIZ /#N/ 

040 EXPGOT: .ASCIZ /#A EXP'D: #06#A, REC'D: #06/ 

045 EXPGT2: .ASCIZ /#N#A EXP'D: #06#A, #06#N#A REC'Dt #0#A, #06/ 

040 DUAD12: .ASCIZ /#A REG(W) WRITTEN TO: #06#A REG(R) READj EXP'D: #06#A, REC'D: #06/ 

115 PKTRAMs: .ASCIZ 'RAM Contente Do Not Match Packet Sent' 

103 SCMEj .ASCIZ / CONFIG DOESN'T MATCH MFG. MASTER/ 

111 WRTMSG: .ASCIZ 'WRITE CHARACTERISTICS Failed* 

123 WRTERR: .ASCIZ ' TSSR Incorrect After WRITE Coiwnand, More Bits Set Than SSR' 

123 RDEP^: .ASCIZ 'TSSR Incorrect After READ Co<mnend. More Bite Set Than SSR' 
.EVfcM 



CZTKFA TK-25 FRT END FUNC 02 
GLOBAL ERROR REPORT SECTION 



E4 
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SEQ 43 



143* 
!.435 
1436 
14*7 
1438 
1439 
1440 
1441 
1442 

1443 



1444 

1445 



1446 
1447 
1448 
1449 

:.<5o 

1451 
1452 
1453 
1454 
1455 
1456 



005176 
005176 
005176 
005176 
005202 
005206 
0052:.c> 
005214 
005216 
005222 
CG5226 
005226 
005226 



1457 



005230 
005232 
0052V 
005236 
005242 
0C5242 
005246 
005252 
005254 
005256 
005262 



013746 

01*746 
012746 
010600 
104415 
062706 
004737 



104423 



005727 
000000 
001402 
004777 

013746 
012/46 

010600 
1C4415 
062706 
000207 



003062 

C03675 
000002 



000006 
005230 



177770 

004426 
000001 



000004 



.SBTTL GLOBAL ERROR REPORT SECTION 

j THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

j CALLS THAT ARE USED IN MORE THAN ONE TEST, 

j ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 

\ -- 



BGNMSG NXRERR 



NXRERR : 


: 






PRINTX 


♦NXRX.NOOEV 




MOV 


NOOEV.-CSP) 




MOV 


*NXRX # -CSP) 




MOV 


♦2,-CSP) 




MOV 


SP,RO 




TRAP 


CIPNTX 




ADD 


♦6.SP 




JSR 


PC.EXTENO 




ENOMSG 




L 10002; 







jNON-EXISTANT DEVICE REGISTER. 
iNODEV ■ NEXM ADDRESS. 



X PRINT EXTENSION IF REQUIRED. 



TRAP 



CIMSG 



i THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
j TO ANY OF THE ABOVE ERROR SIGNATURES. 



t - NO EXTENSION. 



EXTEND? 


TST 


(PC)* 


EXTA; 









BEQ 


1$ 




JSR 


PC.8EXTA 


1$: 


PRINTX 


♦NULCR 




MOV 


♦NULCR.-(SP) 




MOV 


•1,-CSP) 




MOV 


SP.RO 




TRAP 


C*PNTX 




ADO 


04, SP 




RTS 


PC 



i APPEND EXTENSION TEXT, 
j PRINT A BLANK LINE 



C2TKFA TK-25 > RT F.Njj FUNC *2 
PRITSSR - PRINT TSSR CONTENTS 


1460 








1461 








1462 








1463 








1464 








1465 








14b6 








1467 








146tt 








1469 








14 70 








1471 








147? 








1473 








1474 








1475 








14^6 








14^7 








1470 


005264 






1470 


005264 






1460 


005270 


01010^ 




1481 


CCS272 








0052 72 


0.104-16 






005274 


012/46 


006117 




0^5300 


012V 46 


000002 




OOS304 


yiwoo 






0O5306 


104414 






005310 


iv*«:?06 


000006 


148? 


0053 U 


CiOICO 




14B3 


000316 


004757 


016714 


1464 


005322 


103110 




146b 


005324 








005324 


Ot;.;V4* 


006337 




005330 


012/ *6 


O0OO01 




005354 


CVjfeO*; 






005336 


*0VU5 






005340 


<{>-;/<*; 


000004 


I486 


005344 


01.04 1*3 




1487 


005 V 6 


0*^703 


001476 


1498 


00555*-; 


C^l^cW 




1489 


0051S4 


M: : ./;>" 


002576 


1490 


005360 


CU-:70i 


003400 


1491 


X>5364 


COS 703 




1492 


005361- 


COi^t \ 




1493 


005370 


•.vtw;'£i. 




1494 


005? 7 v 


0*'V.;.0:> 




1495 


003374 


103c :0t 




1496 


0055 ft. 


OUIW 




1497 


0054 CO 


lu-oa; 




1498 


005402 


001.3/;'. 




1499 


005404 


il.?7-f. : 


000054 


1500 


0054)2 


00:%/.: y 




1501 


0O5414 


OOCC-A 




150? 


005416 


ior><wp 




1503 


0054^0 








005420 


012/4/ 


002576 




005424 


012746 


006310 



F4 
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SEQ 44 



.SBTTL PRITSSR - PRINT TSSR CONTENTS 

♦ 

ROUTINE TO DISPLAY THE CONTENTS, ANO BIT DEFINITIONS, Of 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

Rl CONTENTS OF TSSR 
SUBORDINATE ROUTINES: 

CHKAM8 CHECK FOR AMBIGUOUS CONTENTS 



177777 



PRITSSR 


• 
*SAVREG 






MOV 


R1.R4 




PRINTS 


4TSSRF0R.R4 




MOV 


R4.-CSP) 




MOV 


♦TSSRFOR.-CSP) 




MOV 


♦2,-CSP) 




MOV 


SP,RO 




TRAP 


C$PNTB 




ADD 


♦6.SP 




MOV 


R4.R0 




JSR 


PC.CHKAMB 




BCS 


5$ 




PRINTX 


♦AMBTSSR 




MOV 


♦AMBTSSR.-(SP) 




MOV 


U.-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


*4,SP 


5$: 


MOV 


R*,.r3 




PIC 


#HIADOR!FATERR STEROLS 




U£Q 


20$ 




MOV 


♦TMPBFR.R2 




hOV 


♦TSSRBIT.R1 


10$ j 


TST 


R3 




PEU 


15$ 




CLC 






ROL 


R3 




BCC 


13$ 




MOV 


(RD.RO 


111: 


MOVB 


C«0)».CR2)* 




BNE 


11$ 




MGVB 


♦ ' ..-1CR2) 


13$: 


TST 


CRD* 




BR 


10$ 


15$; 


CLRB 


-CR2) 




PRINTX 


4TSSDEF.0TMPBFR 




MOV 


#TMPBFR,-CSP) 




MOV 


frTSSQEFXSP* 



1 SAVE GENERAL REGISTERS 
j SAVE THE TSSR CONTENTS 
1 PRINT THE CONTENTS OF TSSR 



jGET TSSR BACK FOR CHKAMB 
1 ARE CONTENTS AMBIGUOUS ? 
I BRANCH IF NOT 
1 SHOW CONTENTS ARE AMBIGUOUS 



1 CONTENTS OF TSSR 
,R3 iCLEAR ALL MULTIPLE BIT FIELDS 
»N0 BITS ARE SET 
1 TEMPORARY ASCII BUFFER 
lASCII EQUIVALENT OF BITS 
I REMAINING BITS TO CONVERT 
t BRANCH WHEN ALL ARE DONE 
, CLEAR CARRY FOR SHIFT 
j SHIFT NEXT BIT TO CARRY 
I BRANCH IF BIT NOT SET 
j POINTER TO BIT DEFINITION 
iMOVE ASCIZ TO BUFFER 
1 MOVE ALL BITS 

1 INSERT A COMMA TO TERMINATE 
jPOINT TO NEXT DESCRIPTION 
;bET fHE REMAINING BITS 
, TERMINATE THE LINE 
I PRINT THE BIT DEFINITIONS 















G4 




KFA TK-25 FRT ENl> n i 


NC *2 


MACRO M1200 20 


-APR-84 


09:12 PAGE 35-1 


5EQ 4 


TSSR - PRINT 


TSSf; CONTENTS 












005430 


01? 74* 


C0OO02 






MOV 


#2,-(SP) 




005434 


0106CD 








MOV 


SP.RO 




005436 


1044 r> 








TRAP 


C$PNTX 




OC5440 


062 /OS 


000006 






ADD 


06, SP 




1504 
















1505 005444 


ci04o;: 






20$: 


MOV 


R4.R3 


jGET THE TSSR CONTENTS 


ir.06 005446 


042703 


3.77761 






BIC 


**CTERCLS,R3 


i CLEAR ALL BUT TERMINATION 


1507 005452 


016*05 


006400 






MOV 


TCOCOOCR3),R3 


jGET THE TERMINATION CODE MEANING 


1508 005456 










PRINTX 


OTC0ASC.R3 


i PRINT THE TERMINATION CODE 


005456 


010*46 








MOV 


R3.-CSP) 




005460 


012706 


006200 






MOV 


♦TCOASC-CSP) 




005464 


012746 


000002 






MOV 


♦2.-CSP) 




005470 


010600 








MOV 


SP.RO 




005472 


1C-5415 








TRAP 


C$PNTX 




005474 


06270* 


000006 






ADD 


♦6.SP 




1509 005500 


010403 








MOV 


R4.R3 


jTSSR CONTENTS AGAIN 


1510 005502 


042^03 


177717 






BIC 


♦tCFATERR,R3 


j CLEAR ALL BUT FATAL TERMINATION 


1511 005506 


001421 








BEQ 


25$ 


jOON'T PRINT IF ZERO 


1512 005510 


00620?, 








ASR 


R3 




1513 005512 


006203 








ASR 


R3 




1514 005514 


0062C3 








ASR 


R3 


j ALINE TERMINATION CODE FOR INOEX 


1515 005516 


016303 


006740 






MOV 


TSFCOO(R3).R3 


iGET THE FATAL TERMINATION CODE 


1516 005522 










PRINTX 


♦TFCASC.R3 


; PRINT THE FATAL TERMINATION CODE 


005522 


010346 








MOV 


R3.-CSP) 




005524 


012746 


006241 






MOV 


♦TFCASC.-(SP) 




005550 


012746 


000002 






MOV 


*2.-(SP) 




ooj>5:w 


010600 








MOV 


SP.RO 




c J5536 


104415 








TRAP 


C$PNTX 




005540 


062706 


(00006 






ADD 


♦6.SP 




1517 005544 


012737 


'>00031 


002170 




MOV 


*25..F,*TFLG 


iDROP THIS UNIT AFTER ERROR 


1518 005552 


0104C3 






25$: 


MOV 


R4.R3 


iGET TSSR CONTENTS 


1519 005554 


04c 70*. 


A76377 






BIC 


*tCHIAD0R,R3 


I CLEAR ALL BUT EXTENDED ADDRESS 


1520 005560 


00141X 








BEQ 


30$ 


iDON' T PRINT IF ZERO 


1521 005562 










PRINTX 


♦TEXASC.R3 


j PRINT THE EXTENDED ADDRESS BITS 


005562 


010346 








MOV 


R3.-CSP) 




005564 


012746 


<KX>137 






MOV 


OTEXASC.-CSP) 




005570 


01274?, 


000002 






MOV 


♦2.-CSP) 




005574 


010600 








MOV 


SP.RO 




005576 


10441? 








TRAP 


C$PNTX 




005600 


062706 


000O06 






AOD 


♦6.SP 




1522 005604 


022704 


.'00210 




30* : 


CMP 


♦100210. R4 


j CHECK FOR MEDIA ERROR 


1523 005610 


0C100.N 








BNE 


31$ 


iBR, IF PROBABLY NOT TAPE ERROR 


1524 005612 


01273/ 


O06026 


002146 




MOV 


♦EPRT3, EPRTSW 


IMPROBABLY MEDIA RELETEO ERROR - BAD TAPE" 


1525 005620 


00573/ 


002146 




31$: 


TST 


EPRTSW 


I CHECK FOR THE SWITCH EMPTY 


1526 005624 


OOlOC* 








BNE 


310$ 


»BR. IF SWITCH IS NOT EMPTY 


152/ 00562* 


012 r'SV 


005 /62 


002146 




MOV 


♦EPRT1, EPRTSW 


iSET SWITCH TO DEFAULT 


1528 005634 


015737 


002146 


005644 


310$: 


MOV 


EPRTSW, 32$*2 


j PUT REAL SWITCHABLE MESSAGE IN PLACE 


1529 005642 








32$: 


PRINTS 


*EPRT1 


j PRINT THE ERROR MESSAGE 


0C564? 


01 274 -S 


0:»S7^2 






MOV 


♦EPRTl.-(SP) 




005646 


01.' ,'4' 


OO^'iOl. 






MOV 


• 1,-(SP) 




005652 


O.UV-'JO 








MOV 


SP.RO 




005654 


1044? 4 








TRAP 


C$PNTB 




005656 


062706 


00!>004 






ADD 


04, SP 




1530 005662 


01273V 


005762 


002146 




MOV 


♦EPRT1, EPRTSW 


1 RESET TO NORMAL ERROR POINTER 


1531 005670 


ooorc? 








RTS 


PC 


.RETURN TO CALLER 


1532 005672 


04 r - 


116 


045 


EPRT2: 


•ASCIZ 


•*N4A ♦♦♦♦•CHECK CONTROLLER, CABLES AND TRANSPORT*****^* 


1533 005762 


045 


116 


045 


EPRTit 


♦ASCIZ 


**NtfA **a*+REPLAGE CQfoTRQLLER***+**S' 



KKS*-*- 



SSR 



RlWM CdH^ts "ACRO H1200 20-APR-84 08:12 



H4 
PAGE 35-2 



SEQ 46 



1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 

154 l; 

1546 
1547 
154rt 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
15b9 



006026 

0065.17 

006137 
006200 
006? U 

006310 
00633? 

006400 
006420 

006443 
006471 
006513 
0O*.533 
C06615 
006664 
006710 



006710 
006750 
007004 
007015 
007061 



045 

04I. 
<>V_i 
C:-k" 
045 

0^5 

0064-.? 

ilo 

3.;-4 

I/- 4 
10'. 

12? 

12b 
106 



006V HO 
111 
3 2o 
102 
122 



116 

116 
116 
116 
116 
116 
116 

006443 
157 
145 
141 
165 
145 
145 
3 56 
141 



007004 
156 
145 
165 
145 



045 EPRT3: .ASCIZ ' *N*A *****P0SSIBLE MEDIA RELATED ERROR - BAD TAPE******S 



045 
045 

045 
045 
045 
045 

0064 71 
162 
162 
160 
156 
143 
143 
162 
164 



007015 
164 

163 
163 
163 



TSSRFOR 

TEXASC 

TCOASC 

TFCASC 

TSSDEF 

AMBTSSR 

TCOCOO: 

II 

2* 

3* 

4$ 

5$ 

6$ 

71 

8$ 



II 

21 
31 

41 



.EVEN 

.WORD 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



TSFCODj .word 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



•*Ni<A 
**N*A 
'*N*A 
'*N*A 
'#N*A 
'*N*A 



TSSR - *06' 

Extanded Addreee Bits ■ ¥06' 

Termination Claee Code • *T' 

Fatal Termination Class Coda 

TSSR Bita Satj *T' 

TSSR Contents Are Ambiguous' 



#T 



11,21,31,41,51,61,71,81 

'Normal termination' 
'Termination Condition' 
' Tape Statue Alert' 
'Function Reject' 
'Recoverable Error - Tape 
'Recoverable Error - Tape 
'Unrecoverable Error' 
'Fatal Controller Error' 



Poa i t i on One Record Down ' 
Was Not Moved* 



11,21,31,41 

'Internal Diagnostic Failure' 

'Reserved' 

' Bua Interface or Sanity Check Error' 

'Reserved' 



14 



CZfKFri TK-25 FRX END '<'JHC 02 MACRO M1200 20-APR-84 08; 12 

PR1PKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 
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SEQ 47 



isf.r 

1562 

1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1530 
1581 
1582 
1585 
1584 
1585 
1586 



1587 
1588 
156^ 
1590 
1591 
1592 
1593 
1594 



1595 

1597 
1598 



007072 
007072 
007076 
007100 
00/104 
007106 
007110 
007112 
007114 
0C7116 
00/120 
00/120 
007122 
007124 
007 L50 
007154 
0O715J 
007140 
007144 
007146 
007150 
007152 
007156 
007160 
007162 
00/164 
007164 
CO 7 166 
007170 
00/174 
0O7200 
00720? 
007204 
007210 
00 721.- 
007214 
007216 
00/216 
00722? 
007226 
007230 
007232 



010005 
00: 7? V 
00 100 J 
005003 
010301 
010*00 
u 06 100 
006101 

01044=.. 

010146 
C'1274*'> 
012 7A6 
010600 
104414 
062 / 06 
010?00 
001404 
010401 
004/,<7 

oiooo-; 

005001 
012402 

0102' o 

010146 

012 7 «■• 

01274* 

010t>\»0 

1044 i.4 

06270u 

00*520,. 

0203 05 

00276.' 

012 746 
01274 ^ 
O106'»0 
104* K 
062706 



.SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 

THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET, 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT; 



RO 
R3 
R4 



NUMBER OF WORDS IN PACKET 

HIGH OROER COMMAND PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 



005102 



NOTE; R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



I SAVE THE REGISTERS 

i SAVE NO. OF WORDS IN PACKET 

■ABOVE 28K UNDER TEST? 

I BR IF YES 

i SET HIGH ORDER ADDRESS TO 

I COPY HIGH ORDER ADDRESS 

» GET LOWER ADDRESS 

j SHIFT BIT 15 INTO C BIT 

lANO INTO HIGH ORDER. 

I PRINT PACKET ADDRESS 



COV276 
000005 



O00O10 



020270 



000005 



000010 



00 7. VI J 

0C0OO1 



000004 



PRIPKT j 


'SAVREG 






MOV 


R0.R5 




TST 


KTENABLE 




BNE 


10$ 




CLR 


R5 


10$: 


MOV 


R3.R1 




MOV 


R4.R0 




ROL 


RO 




ROL 


Rl 




TRINTB 


♦PKTAD0.R1.R4 




MOV 


R4.-CSP) 




MOV 


Rl.-CSP) 




MOV 


♦PKTADO.-(SP) 




MOV 


♦5,-(SP) 




MOV 


SP.RO 




TRAP 


C$PNT3 




ADO 


»*" f SP 


15$: 


MOV 


> 




BEQ 






MOV 


{ .' :' - . ■ 




JSR 


, TMAP 




MOV 


.,,04 


201: 


CLR 


Rl 


25$: 


hov 


(R4)*,R2 




PRINTS 


♦PKTFHM.R1.R2 




MOV 


R2.-CSP) 




MOV 


Rl.-CSP? 




MOV 


♦PKTFRM, -(SP) 




MOV 


43.-CSP) 




MOV 


SP,RO 




TRAP 


CIPNTB 




ADD 


•10. SP 




INC 


Rl 




CMP 


R1.R5 




BLT 


25$ 




PRINTB 


♦PKTNEW 




MOV 


♦PKTNEW, -CSP) 




MOV 


•1. (SP) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADD 


04,SP 



iGET HIGH ORDER ADDRESS 

j BR IF NOT ABOVE 28K . 

^GET LOW ORDER ADORE SS 

j SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 

I GET RETURNED PAR6 ADDRESS BIAS 

j SAVE WORD NUMBER 

iGET PACKET CONTENTS 

I PRINT THE DATA 



I NEXT UORD NUMBER 

iDONE ALL PACKET WORDS? 

i LOOP TILL ALL DONE 

I JUST A COUPLE NEW LINES 



J4 



CZTKFA TK-25 f'RT F.NO F'UNC *2 



MACRO M1200 20-APR-84 08? 12 PAGE 36-1 



PRIPKT - PRINT Tiff. ADDRESS/CONTENTS OF COMMAND PACKET 



SEQ 48 



1599 007236 <W07 
1600 

1601 ^07 PAO 045 116 

1602 007276 045 116 
1603 

1604 0075?3 045 116 

1605 

1606 



045 
045 



PKTFRM? 
PKTADD; 



045 PKTNEWt 



RTS 

.ASCIZ 
.ASCIZ 

.ASCIZ 
.EVEN 



PC 



*N*A 



P»ck#t 

Packet 



*N*N*A 



i RE TURN 

Word <MD1><A - ^06 
Addrens » *Q1*Q5' 



I<4 



CZTKFA TK-25 FRY END TUNC 42 MACRO M1200 

PRIBXOR - PRINT EXPO, RECV AND XOR BYTE 



20-APR-B4 08:12 PAGE 37 



SEQ 49 



1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1610 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
162P 
1629 
1630 
1631 
1632 
1633 
1634 



1635 
1636 
1637 
1636 
1639 
1640 



007344 
007344 
007350 
007352 
007362 
007366 
007370 
007372 
007374 
007374 
007376 
007400 
007402 
007406 
007412 
007414 
007416 
007422 
007424 

007426 



010203 

012700 
040001 
040002 
040003 

010346 
010146 
010246 
012746 
012746 
010600 
104414 
062705 
010300 
000207 

045 



.SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



Rl 
R2 



OUTPUT; 



RO 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



177400 



007426 
000004 



O00012 



lib 



045 



PRIBXOR:: 






SAVREG 




(SAVE THE REGISTERS 


MOV 


R^.R3 


I EXPECTED DATA 


XOR 


R1.R3 


jFORH THE EXCLUSIVE 


MOV 


«tC<377>, 


RO jBYTE MASK 


BIC 


R0.R1 


jSAVE LOW BYTE RECV 


BIC 


R0,R2 


iSAVE LOU BYTE EXPO 


BIC 


R0.R3 


j SAVE LOW BYTE XOR 


PRINTB 


4X0RBF0R, 


R2.R1.R3 j PRINT THE MESSAGE 


MOV 


R3, -CSP) 




MOV 


Rl.-(SP) 




MOV 


R2.-CSP) 




MOV 


«XORBF0R< 


•(SP) 


MOV 


*4,-(SP) 




MOV 


SP.RO 




TRAP 


CIPNT8 




ADO 


012, SP 




MOV 


R3.R0 


|R0 HAS XOR ON RETURN 


RTS 


PC 


{RETURN TO CALLER 


XORBFOR: 


.ASCIZ ' 


*N*A EXPD: *03*A RECV: *03*A 



♦ EVEN 



L4 



C7TKFA TK-25 FRT END FUNC 02 MACRO M1200 
PRIXOR - PRINT EXPD, RECV AND XOR 



20-APR-64 08:12 PAGE 38 



SEQ 50 



1642 








.SBTTL 


164 3 










1644 








5 ♦ 


1645 










1646 








'{PRINT EXPECTEI 


164 7 








;THI5 ROUTINE 


1648 










1649 








1 INPUTS: 


1650 










1651 








I Rl 


1652 








1 R2 


1653 










1654 








i OUTPUT: 


1655 










1656 








i RO 


1657 










1658 








• - 


1659 










1660 


0074 74 






PRIXOR:: 


1661 


007474 






SAVREG 


1662 


007500 


010203 




MOV 


1663 


007502 






XOR 


1664 


007512 






PRINTS 




007512 


010346 




MOV 




007514 


010146 




MOV 




007516 


010246 




MOV 




007520 


01^746 


007544 


MOV 




007524 


012746 


000004 


MOV 




007530 


010600 




MOV 




007532 


104414 




TRAP 




007534 


062706 


000012 


ADD 


1665 


007540 


010300 




MOV 


1666 


007542 


000207 




RTS 


1667 










1668 


007544 


045 


116 


045 XORFORs .ASCIZ 


1669 








.EVEN 



PRIXOR - PRINT EXPD, RECV AND XOR 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



j SAVE THE REGISTERS 
R2,R3 {EXPECTED DATA 

R1.R3 jFORM THE EXCLUSIVE OR 

OXORFOR.R2.R1.R3 jPRINT THE MESSAGE 
R3.-CSP) 
Rl, -(SP) 
R2.-CSP) 
♦XORFOR.-CSP) 
*4,~(SP) 
SP.RO 
CIPNTB 
*12,SP 

R3.R0 jRO HAS XOR ON RETURN 

PC j RETURN TO CALLER 

'*N#A EXPD: t*Q6*A RECV: #Q6*A XOR: #06 



ft 



M4 



TKFA TK-25 FRT END FUNC *2 MACRO M1?00 2Q-APR-84 08:12 
IEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
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SEQ 51 



1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
169? 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 



,S6TTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
172X 



007612 
007612 
007616 



007620 
007620 
007624 
007624 
007626 
007632 
007636 
007640 
007642 
007646 

007650 



J ♦ 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS: 



PRIEQU: 



000207 



RO 
Rl 



SAVREG 
RTS 



OCTAL VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



PC 



,SAVE THE REGISTERS 
I RETURN TO CALLER 



.SBTTL PRIRAM - PRINT RAM ADDRESS 



; ♦ 



PRINT CONTROLLER RAM ADDRESS. 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



INPUTS: 



PRIRAM: 



010446 

012746 007650 

012746 000002 

010600 

104414 

062706 000006 

000207 

045 H6 



R4 



SAVREG 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



RAM ADDRESS 



0RAMF0R.R4 

R4, -(SP) 

♦RAHTOR.-CSP) 

•2,-CSP) 

SP.RO 

CIPNTB 

*6,SP 

PC 



j SAVE R1-R5 UNTIL NEXT RETURN 
j PRINT RAM ADDRESS IN ERROR 



; RE TURN 



045 RAMFOR: .ASCIZ 
.EVEN 



*N*A CONTROLLER RAM ADDRESS - *06 



.SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 



j * 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 

IMPLICIT INPUTS 

ERRHI - HIGH ORDER ADDRESS 
ERRLO - LOW ORDER ADDRESS 



CZTKFA Tl<~, 
PRIADD - I 



i FRT END TUNC Q\ 
!INT MEMORY ERROl 



N4 



n MACRO M1200 
ADDRESS 



20-APR-64 08:12 PAGE 39-1 



SEQ 52 



1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 



1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 



007712 
007712 
007716 
007722 
007726 
007730 
007732 
007734 
007734 
007736 
007740 
007744 
007750 
007752 
007754 
007760 

007762 



1758 
1759 
1760 

1761 
1762 
1763 
1764 



010026 
010026 
010032 
010036 
010042 
010044 
010046 
010050 
010050 
010052 
010054 
010060 
010064 
010066 
010070 
010074 

010076 



013700 

013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



013700 
013701 
010102 
006101 
006100 

010246 
010O46 
012746 
012746 
010600 
104414 
062706 
000207 

045 



PRIADD : 



002202 
002204 



007762 
000003 



000010 
116 



045 PRIAO: 



i ♦ 



SAVREG 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTS 

;iov 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 

.EVEN 



ERRHI.RO 

ERRL0.R1 

R1.R2 

Rl 

RO 

0PRIA0.R0.R2 

R2.-CSP) 

RO.--CSP) 

OPRIAO.-CSP) 

03, -(SP) 

SP.RO 

C$PNT8 

*10,SP 

PC 



jSAVE R1-R5 UNTIL NEXT RETURN 

jGET HIGH A0DRE5S5 

I GET LOW ADDRESS 

iCOPY LOU ADDRESS 

tSHIFT BIT 15 TO C BIT 

jSHIFT INTO HIGH ORDER 

I PRINT MEMORY ADDRESS IN ERROR 



iRETURN 



*N*A MEMORY ERROR ADDRESS * *0l*05 



.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 



ERRHI 
ERRLO 



- HIGH GdLER ADDRESS 

- LOW ORDER ADDRESS 



PRITADD: 



002202 
002204 



0100 76 
000003 



000010 
116 



SAVREG 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



ERRHI.RO 

ERRLO.Rl 

R1.R2 

Rl 

RO 

OPRIT0.R0.R2 

R2.-CSP) 

RO, -(SP) 

OPRITO, -CSP) 

03,-CSP) 

SP.RO 

CtPNTB 

010, SP 

PC 



jSAVE R1-R5 l*4TIL NEXT RETURN 

jGET HIGH ADDRESSS 

j GET LOW ADDRESS 

jCOPY LOU ADDRESS 

jSHIFT BIT 15 TO C BIT 

j SHIFT INTO HIGH ORDER 

{PRINT MEMORY ADDRESS IN ERROR 



{RETURN 



043 PtlTOs .ASCI/. 't*N*A MEMORY TEST ADDRESS - K01H05 
♦ EVEN 



B5 



CZTKFA TK-25 FRT ENO F<MC 42 MACRO M1200 20- APR -84 06il2 
SPACE - SPACE RECORDS ( FORWARD AND REVERSE) COMMAND 
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SEQ 53 



1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1604 
1S05 
1806 
1807 
1808 
1809 
1810 
1611 
1612 
1813 
1814 
1815 
1616 



010140 
010140 
010144 
010152 
010160 
010162 
010164 
010170 
010172 
010176 
010202 
010210 
010214 
010220 
010224 
010226 
010226 
010232 
010234 
010240 
010242 
010246 



012737 
012737 
005703 
100403 
010337 
000407 
042703 
010337 
052737 
012704 
010465 
004737 
103420 

012727 
000000 
013727 
000000 

005567 
001375 



»SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMANO 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT} 



R3 NUMBER OF RECOROS TO BE SPACED OVER 

Bi.T15 CONTROLS DIRECTION 

BIT15 ■ IS FORWARD 

BIT 15 • 1 IS REVERSE 
R5 FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT; 



CARRY SET - SPACE RECORDS GOTLAND OK 
CLR • SPACE RECORDS FAILED 



RO THE CONTENTS OF R4 IS MOVED TO RO 

IMPLICIT OUTPUT i 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 

SPACE t t 



000764 010330 
140010 010320 



01032*? 

100000 

010322 

000400 010320 

010320 

177776 

017120 



000250 
002116 
177772 



5li 



10$ i 



SAVREG 




MOV 


♦500. .SDELAY 


MOV 


♦140010,60$ 


TST 


R3 


BMI 


51 


MOV 


R3.90I 


BR 


101 


BIC 


#6IT15,R3 


MOV 


R3.90I 


BIS 


#©IT6,60$ 


HOV 


♦60I.R4 


MOV 


R4,TS0B(R5) 


JSR 


PC.WAITF 


BCS 


201 


DELAY 


250 


MOV 


#250, (PC) ♦ 


.WORD 





MOV 


LIDLY.(PC)* 


.WORQ 





DEC 


-6CPC) 


9NE 


*~4 



I SAVE THE GENERAL REGISTERS 

iSET UP DELAY 

I SET UP COMMAND, SPACE FORWARD 

iCHECK FOR DIRECTION 

l BR, IF REVERSE INDICATED 

iLOAD UP NUMBER OF RECOROS TO SPACE 

iGO DO COMMANO 

(CLEAR OIRECTION BIT 

iLOAO UP NUMBER OF RECOROS TO SPACE 

iSET REVERSE BIT IN COMMANO PACKET 

iSET UP R4 WITH PACKET ADDRESS 

i SEND OUT COMMAND 

iWAIT FOR SSR 

iBR, IF SSR 1$ SET AND OK 

l DELAY ABOUT % 25 SECONDS 



C5 
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SEQ 54 



010250 


005367 


.177756 




DEC 


-22CPC) 




010254 


001367 






BNE 


.-20 




1817 010256 


005337 


010330 




DEC 


SDELAY 


jBUMP DELAY COUNTER D 


1018 010262 


001356 






BNE 


15$ 


iBR, IF MORE DELAY 


1819 010264 


000411 






BR 


60$ 


iBR IF TROUBLE CARRY 


1820 010266 


C16501 


000000 


20$; 


MOV 


TSSR(R5),R1 


■ READ TSSR 


1821 010272 


012702 


000200 




MOV 


•SSR.R2 


ISET \JP EXPECTED 


1822 010276 


020201 




251: 


CMP 


R2.R1 


lARE THEY OK 


1823 010300 


001401 






BEQ 


40$ 


»BR, IF EQUAL • OK 


1824 010302 


000402 






BR 


60$ 


» TROUBLE EXIT 


1825 010304 


000261 




40$ j 


SEC 




j SET CARRY NO TROUBLE 


1826 010306 


000401 






BR 


70$ 


lEXIT 


1827 010310 


000241 




601: 


CLC 




i CARRY CLEAR - ERROR 


1828 010312 






70$ j 








1829 010312 


010400 






MOV 


R4.R0 


iPASS PACKET ADDRESS 


1830 010314 


000207 






RTS 


PC 


j RE TURN 



DOWN 
• CLEAR 



D5 



SEQ 55 



1834 
1855 
1836 
1838 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 

1848 



010316 



010320 000000 



010322 
010324 
010326 

010330 



000000 
000000 
000000 

000000 



I 
{ 

j PACKET FOR SPACE COHMANO 

,BLKB 10-<.-TUV2A67> 

J 

i COHMANO WORD 

80$: .WORD 

,NUH8ER 0^ RECORDS TO BE SPACED OVER WORD 

90$; .WORD 

.WORD 
WORD 
SDELAYi .WORD t DELAY COUNTER 

.EVEN 



CZTKFA TK-2: FRT ENO TUNC *2 MACRO M1200 20-APR-84 08:12 
WRTCHR - WRITE CHARACTERISTICS COMMAND 



E5 

PAGE 42 



SEQ 56 



1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1864 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 



010332 
010332 
010336 
C10342 
010346 
010352 
010354 
010356 
010362 
010366 
010372 
010374 
010400 
010402 
01O404 
010406 
010412 
010414 
010420 
010422 
010424 
010426 
010*32 



.SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 



INPUT j 



R4 ADORESS OF PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT ; 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMANO OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPL/CIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

BENBSW - BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



WRTCHR: 



005037 
010465 
004737 
103401 
000423 
016501 
012702 
032701 
001402 
052702 
020201 
001401 
000407 
062704 
011403 
010337 
000261 
000401 
000241 
016500 
000207 



002174 
177776 
017236 



000000 
00O200 
000100 

000100 



000010 
002716 

000000 





SAVREG 






CuR 


BENBSW t 


101: 


MOV 


R4,TSD6(R5) i 




JSR 


PC.CHKTSSR i 




BCS 


20$ j 




BR 


601 i 


20$: 


MOV 


TSSR(R5),R1 i 




MOV 


♦SSR.R2 i 




BIT 


♦0FL.R1 i 




BEQ 


251 i 




BIS 


♦0FL.R2 » 


25$: 


CMP 


R2.R1 i 




BEQ 


401 j 




BR 


601 i 


40*: 


ADD 


♦8..R4 i 




MOV 


(R4),R3 i 




MOV 


R3.MESBFA i 




SEC 






BR 


70$ | 


60*: 


CLC 




70*i 


MOV 


TSSR(R5),RG ! 




RTS 


PC i 



SAVE THE GENERAL REGISTERS 

CLEAR BUFFER ENABLE SWITCH 

SEND OUT COMMAND 

WAIT FOR SSR 

BR, IF SSR IS SET AND CK 

BR IF TROUBLE CARRY - CLEAR 

READ TSSR 

SET UP EXPECTED 

WAS OFT LINE SET IN TSSR 

BR, IF NO OFL SET 

MAKE THEM LOOK ALIKE 

ARE THEY OK 

BR, IF EQUAL - OK 

TROUBLE EXIT 

POINT TO WRT CHARA DATA PACKET 

GET ADDRESS OF MESSAGE BUFFER 

STORE FOR PRINT ROUTINES 

SET CARRY NO TROUBLE 

EXIT 

CARRY CLEAR • ERROR 

RETURN TSSR CONTENTS 

RETURN 



CZTKFA TK-25 FRT END FUNC *2 MACRO M1200 
REWIND - POSITION TAPE (REWIND) COMMAND 



1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 



F5 
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.SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 



SEQ 57 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE . ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 

JSR PC » REWIND 



INPUT: 



OUTPUT 



R5 



RO 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OT R4 IS PASSED TO RO 



1943 
1944 
1945 
1946 
1947 
1949 
1951 
1952 
1953 



010434 
010454 
010440 
010444 
010450 
010454 
010460 
010462 
010462 
01O466 
010470 
010474 
01O476 
010502 
010504 
010510 
010512 
010514 
010516 
010520 
010522 
010524 
010530 
010530 
010532 



012704 
010465 
012703 
0O4737 
103417 

012727 
000000 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 



102010 
OOOOOO 



010530 
177776 
000550 
017120 



0O0372 
002116 
177772 
177756 



1 - 






REWIND: 


• 
*SAVREG 






MOV 


#RWP ACK.R4 




HOV 


R4>TSD6(R5) 




MOV 


♦360.. R3 


10$: 


JSR 


PC.WAITF 




BCS 


20$ 




DELAY 


250. 




MOV 


♦250,, (PC)* 




.WORD 







MOV 


LtDLY.CPO* 




,WORD 







DEC 


-6(PC) 




BNE 


. -4 




DEC 


-22(PC) 




BNE 


. -20 




DEC 


R3 




BNE 


10$ 




CLC 




20$; 


MOV 


R4,R0 




RTS 


PC 




.BLKB 


10- <. -TUV2A&7> 


RWPACK; 








.WORD 


102010 




♦ WORD 






iSAVE R1-R5 UNTIL NEXT RETURN 

iGET PACKET ADDRESS 

I SEND PACKET ADDRESS TO EXECUTE 

lENOUGH TIME FOR 2400' REEL TO REWINO 

jWAIT FOR SSR TO SET 

jLEAVE WHEN SSR IS SET 

iWAIT FOR .25 SECONOS 



jBUMP COUNTER DOWN 

jKEEP GOING 

iCLEAR CARRY TO SET ERROR 

jPASS THE PACKET ADDRESS 

jRETURN 



j POST ION COMMAND (REWIND) 
j NOT USED 



G5 



CZTKFA TK-; 
CKRAM - I 



1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1965 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 



!5 FRT END FUNC * 



OMPARE RAM TO I/O PACKET 
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SEQ 58 



010534 
010534 
010540 
010544 
010550 
010552 
010556 
010562 
010566 
010572 
010576 
010600 
010602 
010604 
010606 
010612 
010614 
010616 
010620 
010622 
010624 
010626 
010634 



012701 
012702 
O05003 
0O4737 
004737 
110265 
004737 
116511 
122124 
001401 
005203 
005202 
020227 
003761 
005703 
001402 
OO0241 
000401 
000261 
012737 
000207 



.SBTTL CKRAM - COMPARE RAM TO I/O PACKET 



ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT: 



R4 
R5 



ADDRESS OF THE COMMANO PACKET 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMS.IZ IS SET TO 8. FOR PRAMPKT ROUTINE 



SIDE EFFECTS: 



CKRAM: 



002206 
000020 

017236 
017236 

177777 

017246 

177776 



000027 



000010 002246 





SAVRF.G 






MOV 


♦RAMDATA.R1 i 




MOV 


♦RMPKTBEG.R2 i 




CLR 


R3 , 




JSR 


PC.CHKTSSR i 


10$: 


JSR 


PCCHKTSSR i 




MOVB 


R2,TS0eH(R5) i 




JSR 


PC.CHKTSSR i 




MOVB 


TSBALCR5),CR1) » 




CMP8 


(Ri)*,(R4)> i 




BEQ 


201 t 




INC 


R3 i 


20$: 


INC 


R2 , 




CMP 


R2.0RMPKTEND i 




8LE 


101 i 




TST 


R3 i 




BEQ 


301 i 




CLC 






BR 


50$ j 


30$: 


SEC 




50*: 


MOV 


08..RAMSIZ j 




RTS 


PC j 



SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADORESS OF FIRST RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADORESS OF NEXT RAM LOCATION 

REACHED END YET ? 

BRANCH TILL AU. Rfc ^D 

WAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 

ANi> EXIT 

SHOW GOOD COMPARE 

SETUP RAMSIZ FOR PRAMPKT ROUTINE 

RETURN 



H5 



CZTKFA TK-25 FRT END FUNC &2 MACRO M1200 
RAMER - READ AND DISPLAY SELECTED RAM 



2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 



2045 
2046 
204 7 
2048 
2049 
2050 



2051 



010636 
010636 
010642 
010646 
010652 
010656 
010662 
010666 
010672 
010676 
010702 
010706 
010710 
010714 
010720 
010722 
010726 
010726 
010730 
010/32 
010736 
010742 
010744 
010746 
010752 
010756 
O!0762 
010764 
010766 
010772 
01C772 
010774 
011000 
0110O4 
011006 
011010 
011014 



013705 
012701 
013702 
013703 
004737 
110265 
0047o7 
116521 
062702 
077313 
01370** 
013702 
060204 
162704 

010446 
010246 
012746 
012746 
010600 
104415 
062706 
012701 
013703 
005004 
112104 
042704 

01O446 

012746 
012746 
01O60O 
104415 
062706 
077316 



011022 
002206 
0) 1020 
002246 
017236 
177777 
017236 
177776 
000001 

002?46 
011020 

000001 



011024 
000003 



000010 
002206 
002246 



177400 



011075 
000002 



000006 
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.SBTTL RAMER - READ AND DISPLAY SELECTED RAM 



SEQ 59 



ROUTINE TO READ THE SELECTED RAM LOCATIONS 

INPUT : 

R5 FIRST DEVICE UNIBUS ADDRESS 
CONSOLE WILL ALSO BE PRINTED TO 

IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 
DATA HELD IN RAM, 

SIDE EFFECTS j 



RAMER 



10$: 



20$: 



30*; 



SAVREG 

MOV 

MOV 

MOV 

MOV 

JSR 

MOVB 

JSR 

hOVB 

ADD 

soe 

MOV 

MCV 
ADD 
SUB 
F^INTX 

t.,ty 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

CLR 

MOVB 

BIC 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

SOB 



RAMR5H.R5 

♦RAMDATA.R1 

RAMHLD.R2 

RAMSIZ.R3 

PC.CHKTSSR 

R2.TSD6HCR5) 

PC.CHKTSSR 

TSBAL(R5),CR1)* 

•1,R2 

R3,!0I 

RAMSIZ.R4 

RAMHL0 # R2 

R2.R4 

•1.R4 

♦RAttI0P,R2,R4 

R4.-CSP) 

R2.-CSP) 

♦RAMIOP, -CSP) 

#3,-(SP) 

SP,R0 

CIPNTX 

♦10. SP 

♦RAMDATA.R1 

RAMSIZ.R3 

R4 

CR1)*,R4 

♦177400, R4 

♦RAMP0,R4 

R4, -CSP) 

♦RAMPD.-CSP) 

♦2, -CSP) 

SP.RO 

CIPNTX 

♦6.SP 

R3.30I 



j SAVE THE GENERAL REGISTERS 

jRESET R5 TO FIRST DEVICE REGISTER 

j ADDRESS TO SAVE THE RAM DATA 

»8YTE ADDRESS OF THE FIRST RAM DATA 

I SET THE SIZE OF THE READ UP 

iWAIT FOR THE SSR TO SET 

j SELECT NEXT RAM ADDRESS 

iWAIT FOR SSR TO SET 

iREAD THE RAM DATA 

lAOORESS OF THE NEXT RAM LOCATION 

iNUMBER OF LOCATIONS COUNTER 

jGET THE RAM SIZE 

jGET THE STARTING RAM AODRESS 

I CALCULATE THE END ADDRESS 

iCORRECT VALUE OF PRINTOUT 

»RAM ADDRESS - 10 - 17 , ETC. 



j ADDRESS OF WHERE RAM DATA 



IS 
READ 



I THE SIZE OF THE RAM FIELD 

1 140 EXTRA DATA LEFT OVER 

jPICK UP BYTE OF RAM DATA 

jGET RID OF SIGN EXTEND 

I "010 211 111 222 377 000 123 134 ETC. 



jLOOP UNTIL ALL PRINTED 



15 
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SEQ 60 



2052 
2055 
2054 
2055 
2056 
2057 
2058 
2059 



011016 000207 



011020 
011022 
011024 
011075 



000000 

000000 

045 

045 



116 
101 



0*5 
040 



50$; 

RAMHLD 
RAMR5H 
RAMIOP 
RAHPD: 



RTS 

.WORD 

.WORD 

.ASCIZ 

.ASCIZ 

.EVEN 



PC 



#N#A Ram 
*A *03*A 



jRETURN 

I RAM ADDR 

jHOLDS R5 

Address (Octal) 



HOLDER 1ST ADDRESS 

FOR LATER 

• *03*A - *03#N' 



J5 



CZ7KFA TK-25 FRT END FUNC 02 MACRO M1PQQ 2Q-APR-64 08; 12 PAGE 46 
CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 



SEQ 61 



2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2086 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2\QV 
2110 
2111 



011110 
011110 
011114 
011120 
011124 
011126 
011132 
011136 
011142 
011146 
011152 
011154 
011156 
011160 
011162 
011170 
011174 
011176 
011200 
011202 
0112O1 
011206 
011210 



012701 
012702 
005003 
0O4737 
004737 
110265 
004737 
116511 
122124 
001401 
005203 
005202 
012737 
020227 
003756 
005703 
001402 
000241 

000401 

000261 
000207 



.SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 

ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT: 



R4 
R5 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RAMOATA IS FILLED UITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 



SIDE EFFECTS: 



CKRAM2: 



002206 
000167 

Oi.7236 
017236 

177777 
017236 
177776 



OOOOIO 
000176 



0022*'.6 





SAVREG 






MOV 


♦RAMOATA. Rl j 




MOV 


♦RMCHBEG.R2 i 




CLR 


R3 i 




JSR 


PC.CHKTSSR » 


10$: 


JSR 


PC.CHKTSSR i 




MOVB 


R2,TS0BHCR5) i 




JSR 


PC.CHKTSSR i 




MOVB 


TSBAL(R5)»(R1) j 




CMPB 


(R1)*,CR4)* i 




BEQ 


20$ i 




INC 


R3 i 


20$: 


INC 


R2 , 




MOV 


♦8.. RAMSIZ i 




CMP 


R2.0RMCHEND-2 i 




BLE 


10$ i 


27$: 


1ST 


R3 i 




BEQ 


30$ , 




CLC 






BR 


50$ j 


30$: 


SEC 




50$: 


RTS 


pc ! 



SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

B*TE ADORESS OF FIRST RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 

ASSUME NORMAL NOT SET 

REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUNO ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 

AND EXIT 

SHOW GOOD COMPARE 

RETURN 



»g a T ^g^ak E »iflj N &$. 



MACRO M12Q< 
MESSAGE BUFFERS 
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SEQ 62 



2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2126 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
*>155 
.?156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 



011212 
011212 
011216 
011222 
011226 
011232 
011254 
011240 
011242 
011244 
01124f« 
011250 
011254 
011260 
011262 
011264 
011266 
011272 
011276 
011300 
011306 
011310 
011314 
011316 
011320 
011322 
011324 
011326 
011330 



010037 
010137 
005737 
001403 
004737 
010001 
0050O4 
0O5O03 
010205 
011264 
011164 
0222c 1 
001401 
005203 
062704 
020427 
005764 
032765 
001403 
020427 
003755 
005703 
001402 
000241 
000401 
C00261 
000207 



.SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE DUFFERS 



ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPO AND RECV 
BUFFER. THE EXPECTED ANO RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT i 



OUTPUT; 



RO 
Rl 
R2 



r::cv MESSAGE BUFFER HIGH ORDER ADDRESS 
HtCV MESSAGE SUFFER lOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT t 

EXPMSG 
RECMSG 
RCVHIADO 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG: 



002250 
002252 
003102 

020270 



002266 
002432 



000O02 
000014 

000200 

000016 



10$ 



15$ 



25$ 



000012 



50$ 



55$: 
60$ i 



SAVRCG 

MOV 

MOV 

TST 

BEQ 

JSR 

MOV 

CLR 

CLR 

MOV 

MOV 

MOV 

CMP 

BEQ 

INC 

ADD 

CMP 

BLE 

BIT 

BEQ 

CMP 

BLE 

tst 

BEQ 

CLC 
BR 
SEC 
RTS 



RO.RCVHIADD 

Rl.RCVLOAD 

KTENABLE 

10$ 

PC.SETMAP 

R0.R1 

R4 

R3 

R2 R5 

CR2),EXPMSG(R4) 

CR1),RECMSGCR4) 

(R2)*,(R1)* 

25$ 

R3 

*2,R4 

R4,*14 

15$ 

#X2.EXTF,X§Ta(R5 

50$ 

R4.016 

15$ 

R3 

55$ 

60$ 
PC 



SAVE R1-R5 UNTIL NEXT RETURN 

SAVE RECV HIGH ADDRESS 

SAVE RECV LOU ADDRESS 

TESTING ABOVE 28K? 

BR IF NO 

RETURN ADORESS BIASED TO PAR6 IN RO 

GET RETURNED ADORESS BIASED TO PAR6 

WOND IN BUFFER 

CLEAR ERROR SEEN FLAG 

GET EXPD BUFFER ADORESS 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

EXPD ECUAL RECV? 

BR IF YES 

SET ERROR SEEN FLAG 

POINT TO NEXT UORD ADDRESS 

DONE FIRST 7 WORDS? 

BR IF NO 

jIS EXTENDED FEATURES SET IN EXPO? 

BR IF NO 

DONE EXTENDED FEATURES WORD? 

BR IF NO 

ANY ERRORS SEEN? 

BR IF NO 

SET FAILURE 

SET SUCCESS 
RETURN 



CZTKFA TK-25 FRT END FUNC *2 MACRO M120G 
CKMSG2 - COMPARE EXPD RECV MESSAGE SUFFERS 



20-APR-84 08{12 
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SEQ 63 



2169 










»SBTTL 


CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 


2170 








; ♦ 






2171 














2172 








j ROUTINE TO COMPARE AN EXPECTED ANO RECEIVED MESSAGE 


2173 








i DUFFER 


, THE EXPECTED ANO RECEIVED BUFFERS ARE STORED FOR 


2174 








j ERROR 


PRINT ROUTINES. 


2175 














2176 








! INPUT : 






2177 














2178 










RO 


RECV MESSAGE SOrFER HIGH ORDER ADDRESS 


2179 










Rl 


RECV MESSAGE BUFFER LOU ORDER ADDRESS 


2180 










R2 


EXPD MESSAGE BUFFER ADDRESS 


2181 










R3 


NUMBER OF BYTES TO COMPARE 


2182 














2183 








! OUTPUT 


; 




2184 














2185 










CARRY 


SET - MESSAGE BUFFERS MATCH 


2186 












CLR - MESSAGE BUFFERS DON'T MATCH 


2187 














2188 








{IMPLICIT OUTPUT; 


2189 














2190 










EXPMSG 


BUFFER IS SET TO EXPC DATA 


2191 










RECMSG 


BUFFER IS SET TO RECV DATA 


2192 










RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 


2193 










RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 


2194 














2195 








• _ 






2196 


011332 






CKMSG2: 


« 




2197 


011332 








SAVREG 


tSAVE R1-R5 UNTIL NEXT RETURN 


2196 


011336 


020327 


000144 




CMP 


R3 t «RECMSG-EXPMSGiOOD IS COUNT ABOVE MAX ALLOWED? 


2199 


011342 


003412 






BLE 


5* iSSO BR IF NO 


2200 


011344 


012703 


000144 




MOV 


♦RECMSG-EXPMSG,R3jB8D 


2201 


011350 








PRINTF 


♦OEBUGMSG jfi«0 




011350 


012746 


011464 




MOV 


#OEBUGHSG»-(SP) 




011354 


012746 


0OOO01 




MOV 


♦l.-CSP) 




011360 


010600 






MOV 


SP.RO 




011362 


104417 






TRAP 


C*PNTF 




011364 


062706 


000004 




ADD 


♦4 , SP 


2202 


011370 


010037 


002250 


5*: 


MOV 


RO, RCVHIADD iSAVE RECV HIGH ADDRESS 


2203 


011374 


010137 


002252 




MOV 


R1,RCVL0AD j SAVE RECV LOW ADDRLSS 


2204 


011400 


005737 


003102 




TST 


KTENABLE i TESTING ABOVE 28K? 


2205 


011404 


001403 






BEQ 


10* |BR IF NO 


2206 


011406 


0O4737 


020270 




JSR 


PC.SETMAP , RETURN AOORESS BIASED TO PAR6 IN RO 


2207 


011412 


010001 






MOV 


R0.R1 jGET RETURNED ADDRESS BIASED TO PAR6 


2208 


011414 


005004 




10*: 


CLR 


R4 jWORO IN BUFFER 


2209 


011416 


005005 






CLR 


R5 » CLEAR ERROR SEEN FLAG 


2210 


011420 


111264 


002266 


15$: 


MOVB 


(R2),EXPMSG(R4) i SAVE EXPD FOR ERROR REPORT 


2211 


011424 


111164 


002432 




MOVB 


(R1),RECMSG(R4) j SAVE RECV FOR ERROR REPORT 


2212 


011430 


122221 






CMPB 


(R2)*,(RD* jEXPD EQUAL RECV? 


2213 


011432 


001401 






BEQ 


25* jBR IF YES 


2214 


011434 


005205 






INC 


R5 j SET ERROR SEEN FLAG 


2215 


011436 


062704 


000001 


25* j 


ADD 


•1.R4 ;POINT TO NEXT BYTE 


2216 


011442 


020403 






CMP 


R4.R3 jDONE ALL BYTES? 


2217 


011444 


002001 






BGE 


50* |BR IF YES 


2218 


011446 


000764 






BR 


15* ,D0 NEXT BYTE 


2219 


011450 


005 705 




50*2 


TS1 


R5 } ANY ERRORS SEEN? 


2220 


011452 


001402 






BEQ 


55* jBR IF NO 



M5 



SEQ 64 



2221 011454 


000241 






CLC 




2222 011456 


000401 






BR 


60$ 


2223 011460 


000261 






55$; SEC 




2224 011462 


000207 






601; RTS 


PC 


2225 












2226 011464 


120 


122 


117 


DEBUGMSG: 


.AS 


2227 011554 


045 


116 


045 


FERCM: .ASCII 


/*N 


2228 011565 


040 


040 


124 


ERCMt .ASCIZ 


/ 


2229 01162U 


056 


056 


056 


SIMSG: .ASCIZ 


/, . 


2230 011653 


124 


105 


123 


TINERR; .ASCIZ 


/TE 


2231 








.EVEN 





jSET FAILURE 

I SET SUCCESS 
I RETURN 

CIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED -' {330 

*A +**/ 

TSSR ERROR CODE REC'D - / 

. , AFTER DOING SOFT INIT/ 

ST; ,../ 



N5 



CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 
CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
224t 
2247 
2248 
2249 
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SEQ 65 



2250 
2251 
2252 



2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 

2266 
2267 
2268 
2269 
22 70 
2271 
2272 



22 73 
2274 
2275 
22 76 
2277 
2278 
2279 
2280 
2281 
2282 
2283 



011666 
011666 
011666 
011672 
011676 
011676 
011676 



004737 
004737 



104423 



005264 
020154 



011700 
011700 
011700 
011704 
011710 
011714 
011720 
011722 
011726 
011726 
011726 



004737 
012700 
004737 
013700 
005001 
004737 



104423 



005264 
000O04 
007072 
002716 

014062 



; PRINT ROUTINE TO FATAL SOFT INIT ERRORS 

! INPUT j 

; Rl CONTENTS OF TSSR AT ERROR 

ISIDF. EFFECTS: 

I EXECUTES DROP UNIT TO CEASE TESTING 



t. - 



SFIMSG:: 



BGNMSG SFIMSG 



L10003: 



J ♦ 



JSR 
JSR 
ENDMSG 

TRAP 



PC.PRITSSR 
PC.CKDROP 



C*MSG 



iPRINT CONTENTS OF TSSR REGISTER 
I DROP UNIT, IF ALLOWED 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 



j INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



BGNMSG PKTSSR 



PKTSSR:: 




JSR 


PC.PRITSSR 


MOV 


♦4.R0 


JSR 


PC.PRIPKT 


MOV 


MESBFA.RO 


CLR 


Rl 


JSR 


PC.PRMF.SS 


ENDMSG 




L 10004: 





iPRINT THE CONTENTS OF TSSR REGISTER 

iNC, OF WORDS IN PACKET 

jPFINT THE CONTENTS OF COMMAND PACKET 

l ADDRESS OF MESSAGE BUFFER 

/.ASSUME NO HIGH MEMORY 

j PRINT THE MESSAGE BUFFER ALSO 



TRAP 



C$MSG 



jPRINT ROUTINE TO PRINT THE CONTENTS OF 
$ TSSR AND M GCT STATUS COMMAND PACKET. 



; INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADORESS OF COMMAND PACKET 



I - 



B6 



CZTKFA TK-25 FRT ENO FUNC #2 MACRO 

CKNSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



2264 
2285 

22B6 
2287 
2266 
2289 



2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2296 
2299 
2500 
2301 

2502 
2303 



2504 
2505 
2506 

2507 
2506 
2509 
2510 
2511 
2312 
2515 
2514 
2315 
2516 
2517 
2518 
2519 

2520 
2521 
2522 
2325 

2324 



2325 



011750 
011750 
011730 
011754 
011/40 
011744 
011744 
011744 



011746 
011746 
011746 
011752 
011752 
011752 



011754 
011754 
011754 
011760 
011762 
011764 
011770 
011770 
011770 



004737 
012700 
004757 



104423 



005264 
000002 
007072 



200 20-APR-84 
ERS 


06 i 12 PAGE 49-1 


BGMMSG 

PKTGETS: : 

JSR 
MOV 
JSR 
ENOMSG 

L 10005: 

TRAP 


PKTGETS 

PC.PRITSSR 

♦2.R0 

PC.PRIPKT 

CIMSG 



SEQ 66 



jPRINT THE CONTENTS OF TSSR REGISTER 
|N0. OF WORDS IN GET STATUS PACKET 
, PRINT THE CONTENTS OF COMMAND PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS: 



Ri 

R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



004737 
104423 



005264 



SFFMSGn 



L10006: 



BGNMSG SFFMSG 

JSR PC.PRITSSR 

ENDMSG 



iPRINT CONTENTS OF TSSR REGISTER 



TRAP 



CIMSG 



.S8TTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



Rl CONTENTS OF TSSR 

R2 LOW OROER MESSAGE BUFFER 

R3 HIGH OROER MESSAGE BUFFER ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



BGftlSG PKTMES 



004737 
010200 
010301 
004737 



104423 



005264 
0140^2 



PKTMESu 




JSR 


PC.PRITSSR 


MOV 


R2.R0 


MOV 


R5.R1 


JSR 


PC.PRMESS 


ENDMSG 





iPRINT CONTENTS OF TSSR 
lLOW ORDER ADDRESS 
IMIGM QRDF.R AD0RES5 
I PRINT TH£ MESSAGE BUFFER 



L10007t 



TRAP 



CIMSG 



mm ™ -swims? mdt ^m m20 ° 



20-APR-84 08:12 
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SEQ 67 



2327 
2328 
2329 
2330 
2331 
2T3? 
2333 
2334 
2335 
2336 
2337 
2338 
2339 

2340 
2341 
2342 
2343 



2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 

2359 
2360 
2361 



2362 
2363 



011772 
011772 
011772 
011776 
012002 
012006 
012006 
012006 



012010 
012010 
012010 
012014 
012020 
012020 
012020 



, SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS i 



R5 FIRST DEVICE UNIBUS ADOftESS 

ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



004737 010026 
016501 OOOOOO 
004737 005264 



104423 



ADDSSR:: 



BGNMSG ADDSSR 



U0010: 



JSR 

MOV 
JSR 
ENOMSG 

TRAP 



PC.PRITADD 

TSSR(R5),R1 

PC.PRITSSR 



CIMSG 



iPRINT MEMORY TEST ADDRESS 

I GET CURRENT TSSR 

iPRINT THE CONTENTS Of TSSR REGISTER 



.SBTTL MSGEXP - PRINT WRITE CHAR, EXPD-RECV MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIAOO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOAOO- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG MSGEXP 



012700 000007 
004737 015422 



104423 



MSGEXP: j 




MOV 


♦7.R0 


51: JSR 


PC.PRMSGEXP 


ENDMSG 




UOQU* 





iASSUME NO EXT FEATURES 

iPRINT EXPD/RECV MESSAGE BUFFERS 



TRAP 



C$MSG 



D6 



CZTKFA TK-25 FRT END FUNC «2 MACRO M1200 20-APR-84 08:12 PAGE 51 
FIFEXP * PRINT FI.KU fcXP/RECV DATA 



SEQ 68 



2365 
2366 

2367 
2368 
2369 

2370 
2371 

2372 
2373 

2374 
2575 
2376 
2377 

2378 



2379 



2380 
2381 
2382 



2383 
2384 

2385 
2386 



012022 
011022 
012022 
012022 
012024 
012030 
012034 
012036 
012040 
012044 
012044 
012050 
012054 
012056 
012060 
012064 
012066 
012072 
012072 
012072 
012074 
012143 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004737 



104423 
045 
045 



.SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 

♦ 

PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

Rl - BYTE COUNT 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGF BUFFER (CONTAINS FIFO DATA ONLY 

RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 



FIFEXP j 



BGNMSG TIFEXP 



012074 
000002 



000006 

012143 
OOOOOl 



000004 
015772 



116 
116 



045 
045 



L10012: 

FIF1MSG: 

FIF2MSG: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

JSR 

ENOMSG 

TRAP 



♦FIF1MSG.R1 

Rl.-(SP) 

♦FIFIMSG.-(SP) 

♦2.-(SP) 

SP.RO 

C*PNTX 

♦6.SP 

♦FIF2MSG 

#fIF2MSG.-(SP) 

•l.-CSP) 

SP.RO 

CIPNTX 

#4,SP 

Rl.RO 

PC.PRBYTEXP 



jPRINT BYTES TRANSFERRED 



iPRINT HEADER MSG 



fGET BYTE COUNT 

{PRINT FIFO BYTES IN ERROR 



.EVEN 



CtMSG 

.ASCIZ 

.ASCIZ 



#N*A NUMBER OF BYTES TRANSFERRED 
#N*A FIFO DATA BYTES IN ERROR:' 



*D2 



E6 
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SEQ 69 



2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
23% 
2597 
2398 
2399 
2400 
2401 

2402 
2403 
2404 
2405 



2406 
2407 
2408 
2409 



2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 

2435 



012202 
012202 
012202 
012206 
012210 
012212 
012212 
012214 
012220 
012222 
012224 
012230 
012232 
012236 
012242 
012242 
012242 

012244 
012262 
012324 
012415 
012506 
01257^ 
012641 



012716 
012716 
012716 



.SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

012262 
045 
045 
045 
045 
045 
045 



012244 



000001 



000004 

000012 
015422 



012324 
116 
116 
116 
116 
116 
116 



045 
045 
045 
045 
045 
045 



MSGSTAT: 
101s 



BGNMSG MSGSTAT 



20$ 



L10013: 



MOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

MOV 

JSR 

ENOMSG 



TRAP 



♦STATC00.R1 

(R1)*,R0 

20$ 

RO 

RO.-CSP) 

♦l.-(SP) 

SP.RO 

CIPNTX 

#4,SP 

101 

♦10,, RO 

PCPRMSGEXP 



CIMSG 



j ASCII ADDRESS TABLE 
lOONE ALL MSG LINES? 
iBR IF YES 
jPRINT STATUS BIT NAMES 



I DO ANOTHER MSG LINE 

I NUMBER OF WORDS IN A READ STATUS BUFFER 

l PRINT EXPD/RECV MESSAGE BUFFERS 



012415 STATCOO: 



TCOO: .WORD II ,21 .31 ,41 ,5$ ,61 ,0 

.ASCIZ '*N*A Tap* Bua Signals in Word #8:' 

.ASCIZ 'a>*A PARERR<15> IEOT <12> IFMK <9> 

.ASCIZ 'tfNJA IRESV2<14> IIDENT<11> IHER <8> 

.ASCIZ '*N*A IRESV1<13> ICER <10> ISPEED<7> 

.ASCIZ 'MUM Tap* Bua Signals in Word *9:' 

6$:. ASCIZ '*N*A DATMIS<7> ILW<6> 0UTRDY<5> INRDY<4> 
.EVEN 



II 
21 
31 
41 

51 



IRDY<6> 

I0NL<5> 
ILDP<4> 



IRW0<2> 

IFBY<1> 
IFPT<0> 



.SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012701 012760 



BGNMSQ MSGLOOP 
MSGLOOP ;; 

MOV *LQQPCQD»R1 



, ASCII ADDRESS TABLE 



F6 



CZTKFA TK-25 FRT ENO FUNC *2 MACRO M1200 20-APR-84 08? 12 
MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
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SEQ 70 



2436 


012722 


012100 






101 


j MOV < 


2437 


012724 


001410 








BEG ; 


2438 


012726 
012726 


010046 








PRINTX 1 
MOV 1 




012730 


012746 


000001 






MOV * 




012754 


010600 








MOV ! 




012736 


104415 








TRAP 1 




012740 


062706 


000004 






ADD 


2439 


012744 


000766 








BR 


2440 


012746 


012700 


0OO012 




20$ 


l MOV 


2441 


012752 


004737 


015422 






JSR 1 


2442 


012756 










ENOMSG 




012756 








L10014; 




012756 


104423 








TRAP 1 


2443 














2444 


012760 


013000 


013053 


013152 


LOOPCOO: 


2445 


013000 


045 


116 


045 


1$; 


.ASCIZ '*Ni<A 


2446 


013053 


045 


116 


045 


2$; 


.ASCIZ '*N*A 


244 7 


013152 


045 


116 


045 


3$: 


.ASCIZ '#N#A 


2448 


013251 


045 


116 


045 


4$: 


, ASCIZ '*Ni<A 


2449 


013350 


045 


116 


045 


5$: 


.ASCIZ '#N*A 


2450 


013447 


045 


116 


045 


61; 


.ASCIZ »*N*A 


2451 


013546 


045 


116 


045 


7$: 


.ASCIZ «*N*A 


2452 












.EVEN 


2453 















(Rl)f.RO 

201 

RO 

RO.-CSP) 

•l.-CSP) 

SP.RO 

CIPNTX 

*4,SP 

10$ 

♦10., RO 

PCPRMSGEXP 



»D0N£ ALL MSG LINES? 

j BR IF YES 

jPRINT STATUS BIT NAMES 



|D0 ANOTHER MSG LINE 

i NUMBER OF WORDS IN A READ STATUS BUFFER 

j PRINT EXPD/RECV MESSAGE BUFFERS 



C$MSG 

.WORD 
Top* 



l$,2$,3$,4$,5$ l 6$,7$,0 



Bus Loopback Signal 
PARERR<15> 

IHISP->IE0T<12> 
IWFM ->IFHK<09> 
ITADO->IRDY<06> 
IREW ->IDBY<03> 
IGO ->IFPT<00>* 



in Word *8: 
IRESV2<14> 

IWRT->IIDENT<11> 
IEDIT->IHER <08> 
ITAD1«>I0NL <05> 
IRWU «>IRWD <oa> 



IRESV1<13> 
IREV »>ICER <10> 
IFAD ->ISPEED<07> 
IERASE->ILDP <04> 
XFEN «>XFBY <01> 



G6 

CZTKFA TK-25 FRT END FUNC *? MACRO M12QQ 20-APR-84 08:12 PAGE 53 
MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



SEQ 71 



2455 

24b 7 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 

2469 

2470 
2471 



2472 
2473 
2474 
24 75 
24 76 
2477 
24 78 
24 79 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 

2490 
2491 
2492 
2493 
2494 



2495 



.SBTTL MSGSUB • PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFTER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



013574 
013574 
013574 
013600 
013604 
013604 
013604 



012700 
004737 



104423 



000012 
015422 



MSGSUB : : 



BGNMSG MSGSUB 



L10015: 



MOV 
JSR 
ENOMSG 

TRAP 



♦10, t R0 
PC.PRMSGEXP 



C*MSG 



l SIZE Of WRITE SUBSYSTEM BUFFER 
I PRINT EXPD/RECV MESSAGE BUFFERS 



013606 
013606 
013606 
013612 
013616 
013622 
013626 
013626 
013626 



.SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 



PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 



IMPLICIT INPUTS: 



ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



004737 
013701 
013702 
004737 



104423 



007712 
002176 
002200 
007474 



MEMADD: 



BGNMSG MEMADD 



L10016: 



JSR 
MOV 
MOV 
JSR 
ENOMSG 

TRAP 



PC.PRIADD 
EXPD.R1 
RECV.R2 
PCPRIXOR 



CiMSG 



j PRINT MEMORY ADDRESS IN ERROR 
iGET EXPO DATA 
iGET RECEIVED DATA 
iPRINT EXPD/RECV 



H6 
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SEQ 72 



2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 



2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 



013630 
013630 
013634 
013640 
013642 
013644 
013646 
013652 
013656 
013666 
013672 
013700 
013706 
013706 
013710 
013714 
013720 
013722 
013726 
013732 
013734 
013736 
013742 
013744 
013750 
013752 
013756 
013760 
013762 
013766 
013770 
013774 
013776 



012701 
005002 
122124 
001000 

116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003731 
000403 
020227 
002725 
005037 
000207 

045 



.SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH, 

INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 



IMPLICIT OUTPUTS 



DATA AS READ FROM THE RAM 
NUMBER OF BfTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8, 



RAMSIZ SET TO 



J - 



PRAMPKT: 



002206 



177777 
177777 

177400 

177777 
177777 



002176 
002200 

013776 
000005 



000014 
002246 
002246 

OOOOIO 

002246 

U6 



5* 
7$ 



002200 
002176 



10$ 



15$ 
20$ 
25$ 



045 RAMASCl 



SAVREG 

MOV 

CLR 

CMPB 

BNE 

MOVB 

MOVB 

XOR 

BIC 

MOVB 

MOVB 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

TST 

BEQ 

CMP 

BLE 

BR 

CMP 

BLT 

CLR 

RTS 

•ASCIZ 

♦ EVEN 



♦RAMOATA, Rl 

R2 

CR1)*,CR4>* 

7$ 

-1(R1),R5 

-1(R4),R3 

R5,R3 

♦177400, R3 

-KRD.RECV 

-1(R4),EXPD 



♦RAMASC ♦ R2 ♦ RECV . EXPD , R3 

R3.-CSP) 

EXPD,-CSP) 

RECV.-CSP) 

R2.-CSP) 

♦RAMASC.-CSP) 

♦5.-CSP) 

SP.RO 

C$PNTB 

♦14, SP 

R2 

RAMSIZ 

15$ 

R2, RAMSIZ 

5$ 

25$ 

R2,^8. 

5$ 

RAMSIZ 

PC 

'*N*A BYTEs 



j SAVE R1-R5 UNTIL NEXT RETURN 

i DATA FROM THE RAM 

iINIT BYTE NUMBER 

, COMPARE EXPECTED. RECEIVED 

I BR IF NO MATCH 

j GET RECV RAM DATA 

jGET EXPD PACKET DATA 

iXOR EXPD/RECV 

»LOW BYTE ONLY 

jGET RECEIVED RAM DATA 

jGET EXPECTED RAM DATA 



jUPDATE BYTE COUNT 
jDEFAULT TO 8.7 
,BR IF YES 
jDONE ALL BYTES? 
|9R IF NO 
I 



lOONE DEFAULT NUMBER OF BYTES? 
jBR IF NO 

j SET DEFAULT RAMSIZ 
i RE TURN 
#D2*A RAM: *Q3*A P*<;k«t? *Q3*A X0R;*03 



ft 



TKFA TK- 
MESS - 



16 
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SEQ 73 



2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2563 
2569 
2570 
2571 



2572 
2573 
2574 



2575 



2576 
257 7 
2578 
2579 
2580 
2581 
2582 
2583 



014062 
014062 
014066 
014072 
014074 
014100 
014102 
014104 
014106 
014110 
014112 
014112 
014114 
014116 
01*122 
014126 
014130 
014132 
014136 
014142 
014144 
014144 
014150 
014154 
014156 
014160 
014164 
014164 
014170 
014174 
014176 
014200 
014204 
014206 
014210 
014212 
014214 
014220 
014222 
014222 



010537 
010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
104415 
062706 
022715 
001010 

012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 

104415 
062706 
005004 
010501 
010300 
001403 
004 737 
010005 



011022 
003102 



014714 
00OOO3 



000010 
177777 



014634 
000001 



000004 

01476a 
000001 



000004 



020270 



l ♦ 

{THIS 

{THE 7 
iTK-25 

j INPUT 



.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



ROUTINE PRINTS THE CONTENTS OF 
WORD MESSAGE BUFFER RETURNED BY THE 



RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 



j THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



i - 



PRMESS: 



10$: 



15$: 



SAVRE& 




MOV 


R5.RAMR5H 


MOV 


R0.R5 


TST 


KTENABLE 


BNE 


10$ 


CLR 


Rl 


MOV 


P1.R3 


ROL 


RO 


ROL 


Rl 


PRINTX 


#PR0ASC,R1,R5 


MOV 


R5.-CSP) 


MOV 


Rl.-CSP) 


MOV 


♦PROASC.-CSP) 


MOV 


♦3,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


♦10.SP 


CMP 


#177777, (R5) 


BNE 


15$ 


PRINTX 


♦MESBFN 


MOV 


♦MESBFN.-(SP) 


MOV 


♦1,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADO 


#4,SP 


PRINTX 


#PR1ASC 


MOV 


#PR1ASC, -CSP) 


MOV 


#1.-(SP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


04, SP 


CLR 


R4 


MOV 


R5.R1 


MOV 


R3.R0 


BEQ 


20$ 


JSR 


PC.SETMAP 


MOV 


R0.R5 



I SAVE THE REGISTERS 

I SAVE DEVICE REGISTER POINTER 

j SAVE LOW ORDER ADDRESS 

I ADDRESS ABOVE 28K? 

i BR IF YES 

{SET HIGH ORDER ADDRESS TO 

I SAVE HIGH ORDER ADDRESS 

iSHIFT BIT15 TO C BIT 

I SHIFT TO HIGH ORDER FOR PRINTOUT 

j PRINT MESSAGE BUFFER ADDRESS 



{MESSAGE BUFFER FULL OF ONES 
{BR IF BUFFER IS PROBABLY OKAY 
{"MESSAGE BUFFER PROBABLY NOT VALID** 



j PRINT HEADER FOR CONTENTS 



20$: 



{NUMBER OF THE NEXT WORD 

{COPY LOW ORDER ADDRESS 

{COPY HIGH ORDER ADDPFSS 

j BR IF NOT ABOVE 28K 

{SETUP PAR ADDRESS IN RO 

;GET PAR FORMAT ADDRESS ABOVE 28K 

PRINTX 0MESHEA.CR5)* {PRINT "MESSAGE BUFFER HEADER -•' 



C7TKFA TK-25 FRT END FUNC *2 MACRO M1200 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



2584 



2565 



2586 



2587 



2588 



2569 



2590 
2591 
2592 



014222 
014224 
014230 
014234 
014236 
014240 
014244 
014244 
014246 
014252 
014256 
014260 
014262 
014266 
014266 
014270 
01427* 
014300 
014302 
014304 
014310 
014310 
014312 
014316 
014322 
014324 
014326 
014332 
014332 
014334 
014340 
014344 
014346 
014350 
014354 
014354 
014356 
014362 
014366 
014370 
014372 
014376 
014376 
014400 
014404 
014410 
014412 
014414 
014420 
014426 
014430 
014430 
014434 
014440 
014442 
014444 
0X4450 



012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 
022737 
001042 

012746 
012746 
010600 
104415 
062706 
012737 



015017 
000002 



000006 



015064 
000002 



000006 



015131 
000002 



000006 



015176 
000002 



000006 



015243 
000002 



000006 



015310 
000002 



000006 



015355 
000002 



000006 

000001 002134 



014536 
000001 



000004 

000010 002246 





J6 


20-APR-64 


08 {12 PAGE 55-1 


MOV 


CR5)*,-CSP) 


MOV 


♦MESHEA.-CSP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦6.SP 


PRINTX 


<K)ATAFL,CR5)f 


MOV 


CR5)»,-(SP) 


MOV 


♦OATAFL.-CSP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦6.SP 


PRINTX 


*RBPCRA,CR5)> 


MOV 


CR5)*.-CSP) 


MOV 


♦RBPCRA.-CSP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦6.SP 


PRINTX 


♦XS0C0N.CR5)* 


MOV 


CR5)*.-CSP) 


MOV 


♦XSOCON.-CSP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦6.SP 


PRINTX 


♦XS1C0N.CR5)* 


MOV 


CR5)».~CSP) 


MOV 


♦XS1C0N.-CSP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦6.SP 


PRINTX 


♦XS2C0N.CR5)* 


MOV 


CR5)».-CSP) 


MOV 


♦XS2C0N.-CSP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦6.SP 


PRINTX 


♦XS3C0N.CR5)» 


MOV 


CR5)»,-CSP) 


MOV 


♦XS3C0N.-CSP) 


MOV 


♦2. -CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦6.SP 


CMP 


♦l.TRANSTST 


bne 


501 


PRINTX 


♦RAMFHR 


MOV 


♦RAMFHR, -CSP) 


MOV 


•L.-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


*4,SP 


MOV 


♦8. »RAMS1Z 



SEQ 74 



I PRINT "DATA FIELD LENGTH 



jPRINT "RESIDUAL BYTE COUNTER •" 



1 PRINT "XSTATO CONTENTS 



m " 



jPRINT "XSTAT1 CONTENTS 



jPRINT "XSTAT2 CONTENTS 



;PRINT "XSTAT3 CONTENTS 



H <> 



j CHECK FOR DUMP 

I BR. IF NO DUMP REQUIRED 



{RAM FIELD IS 8 BYTES LONG 



I<6 



CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 

PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 
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SEQ 75 



2594 
i;595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 



014456 
014464 
014470 
014476 
014502 
014510 
014514 
014522 
014530 
014534 
014536 
014634 
014714 
014761 

015017 
015064 
015131 
015176 
015243 
015310 
015355 



012737 

0O4737 

012737 

004737 

012737 

004737 

012737 

012737 

004737 

000207 

045 

045 

045 

045 

045 
045 
045 
045 
045 
045 
045 



000020 
010636 
000040 
010636 
000060 
010636 
OOOO20 
000100 
010636 

116 
116 
116 
116 

116 
116 
116 
116 
116 
116 
116 



011020 

011020 

011020 

002246 
011020 



045 
045 
045 
045 

045 
045 
045 
045 
045 
045 
045 



501: 

RAMFHR 

MESBFN 

PROASC 

PR1ASC 

MESHEA 
DATAFL 
RBPCRA 
X?.?CON 
X , .CON 
XS2C0N 
XS3C0N 



MOV 

JSR 

MOV 

JSR 

MOV 

JSR 

MOV 

MOV 

JSR 

RTS 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



*20,RAMHLD 

PC.RAMER 

440.RAMHLD 

PCRAMER 

♦60.RAMHLD 

PC.RAMER 

♦16..RAMSIZ 

♦100.RAMHLD 

PCRArtER 

PC 

•#N#A ******* 

•#N#A MESSAGE 

'#N#A Moaaafte 

'#N#A Mesaage 



l FIELD STARTS AT 20 OCTAL CIO HEX) 

t READ ANO PRINT THEM 

I FIELD STARTS AT 40 OCTAL (20 HEX) 

{READ AND PRINT THEM 

jFIELD STARTS AT 60 OCTAL (SO HEX) 

t READ AND PRINT THEM 

I RAM FIELD IS SIXTEEN BYTES LONG 

jFIELD STARTS AT 100 OCTAL (40 HEX) 

j READ AND PRINT THEM 

I RETURN 
*** SPECIAL CONTROLLER RAM MEMORY DUMP *********** 
BUFFER CONTENTS PROBABLY NOT VALID' 
duffer Address • #01#05' 
Buffer Contents: ' 



•#N#A 
»#N#A 
'#N#A 
'#N#A 
•#N#A 
•#N#A 
'#N#A 



M«r*aoe Buffer Hm»d*r 
Data Field Length 
Reaidual Byta Counter 
XSTATO Content* 
XSTAT1 Contend 
XSTAT2 Contents 
XSTAT3 Contents 



#06' 
#06' 
#06' 
#06' 
#06' 
#06' 
*06* 



CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 

PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



20-APR-84 08:12 



L6 

PAGE 56 



SEQ 76 



2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 



2641 



2642 
2643 

2644 
2645 
2646 
264 7 
2648 



2649 
2650 
2651 
2652 
2653 



015422 
015422 
015426 
015430 
015454 
015436 
015442 
015444 
015446 
015446 
015450 
015452 
015456 
015462 
015464 
015466 
015472 
015472 
015476 
015502 
015504 
015506 
015512 
015514 
015520 
015524 
015526 
015530 
015540 
015540 
015542 
015544 
015546 
01555O 
015554 
015560 
015562 
015564 
015570 
015572 
015574 
015576 
015600 



010005 
013700 
010004 
013701 
006100 
0061C1 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
03.1100 
011203 



010346 
012246 
012146 
010446 

012746 
012746 
010600 
104415 
062706 
005204 
0HO405 
002001 
000752 
000207 



j*CB 



.SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 

RO - NUMBER OF WORDS IN BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



002252 
002250 



015602 
000003 



000010 

015647 
000001 



000004 

002266 
002432 



015705 
000005 



000014 



PRMSGEXP:: 

SAVREG 

MOV 

MOV 

HOV 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

20$: MOV 
MOV 
XOR 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
INC 
CMP 
ElGE 
BR 

50$: RTS 



R0.R5 

RCVLOADD.RO 

RO R4 

RCVHIADD. Rl 

RO 

Rl 

*PRMSG0,R1,R4 

R4.-CSP) 

Rl.-CSP) 

♦PRMSGO.-CSP) 

♦3. -CSP) 

SP.RO 

CiPNTX 

*10,SP 

♦PRMSG1 

•PRMSGl.-(SP) 

•1,-CSP) 

SP,RO 

C$PNTX 

04, SP 

R4 

♦EXPMSG, Rl 

*RECMSG,R2 

(Rl).RO 

CR25.R3 

R0.R3 

♦PRMSG2.R4.CR1) 

R3.-CSP) 

CR2)*,-CSP) 

CRl)», -CSP) 

R4.-CSP) 

•PRMSG2, -CSP) 

05, -CSP) 

SP.RO 

C$PNTX 

$14, SP 

R4 

R4,R5 

50$ 

20$ 

PC 



iSAVE R1-R5 UNTIL NEXT RETURN 

I SAVE NUMBER OF WORDS 

»GET RECV LOW ADDRESS 

I COPY LOW ADDRESS 

I GET RECV HIGH ADDRESS 

iSHIFT BIT15 TO C BIT 

i SHIFT TO HIGH ORDER FOR PRINTOUT 

I PRINT MESSAGE BUFFER ADDRESS 



tPRINT HEADER FOR CONTENTS 



I NUMBER OF THE CURRENT WORD 
jGET EXPD BUFFER ADDRESS 
i GET RECV BUFFER ADDRESS 
iGET EXPD 
iGET RECV 
jXOR EXPD/RECV 
♦,(R2)*,R3 



I NUMBER OF THE NEXT 
tDONE ALL YET? 
jBR IF YES 

j DO ANOTHER 
I RE TURN 



M6 



2654 












2655 


015602 


045 


116 


045 


PRMSGO 


2656 


015647 


045 


116 


045 


PRMSG1 


2657 


015705 


045 


116 


045 


PRMSG2 


2658 












2659 













.ASCIZ '*N*A Message Duffer Address ■ *01*05' 

.ASCIZ '#N#A Message Buffer Contents*' 

»ASCIZ '*N*A WORD **D2*A EXPO; *06*A RECV: *06*A XOR: *06' 

.EVEN 



prbytexp - print Error by 



N6 



62 MACRO M12< 

TES IN EXP/REC Ml 



I 20-APR-84 OB:12 
;SAGE BUFFER 



PAGE 57 



SEQ 78 



2661 








2662 








2663 








2664 








2665 








2666 








2667 








2668 








2669 








2670 








2671 








2672 








2673 








2674 


015772 






2675 


015772 






2676 


015776 


010005 




2677 


0160OO 


005037 


002264 


2678 


016004 


005004 




2679 


016006 


012701 


002266 


2680 


016012 


012702 


002432 


2681 


016016 


111100 




2682 


016020 


042700 


177400 


2683 


016024 


1*C037 


016340 


2684 


016030 


111203 




2685 


016032 


042703 


177400 


2686 


016036 


110337 


016342 


2687 


016042 






2688 


016052 


122122 




2689 


016054 


001431 




2690 


016056 


005237 


002264 


2691 


016062 


023727 


002264 000010 


2692 


016070 


101023 




2693 


016072 








016072 


010346 






016074 


013746 


016342 




016100 


013746 


016340 




016104 


010446 






016106 


012746 


016206 




016112 


012746 


0O0O05 




016116 


010600 






016120 


104415 






016122 


062706 


000014 


2694 


016126 






2695 


016136 


000404 




2696 


016140 






2697 


016140 






2698 


016150 






2699 


016150 


005204 




2700 


016152 


020405 




2701 


016154 


002001 




2702 


016156 


000717 




2703 


016160 








016160 


013746 


002264 




016164 


012746 


016273 




016170 


012746 


000002 




016174 


010600 






016176 


104415 





.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

t 

ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO - NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS: 



EXPMSG 
RECMSG 



PRBYTEXP:: 

SAVREG 



- EXPECTED MESSAGE BUFFER 

- RECEIVED MESSAGE BUFFER 



20$ 



27$ 



301 
35$ 



50$ 



MOV 

CLR 

CLR 

MOV 

MOV 

MOVB 

BIC 

MOVB 

MOVB 

BIC 

MOVB 

XOR 

CMPB 

BEQ 

INC 

CMP 

BHI 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

FOHCEXIT 

BR 35$ 



R0.R5 

PRMNO 

R4 

OEXPMSG, Rl 

*RECMSG, R2 

(Rl).RO 

*tC<377> # RO 

RO.FROEXP 

(R2),R3 

#tC<377>,R3 

R3.PRBREC 

R0.R3 

(R1)».(R2)* 

30$ 
PRMNO 
PRMNO. #6. 

30$ 



*PRBMSG,R4,PRBEXP,PRBREC t R3 

R3.-CSP) 

PRBREC-CSP) 

PRBEXP, -(SP) 

R4.-CSP) 

*PRBMSG»-(SP) 

♦5.-(SP) 

SP.RO 

C$PNTX 

*14, SP 



SAVE R1-R5 UNTIL NEXT RETURN 

SAVE NUMBER OF BYTES 

INIT ERROR COUfJT 

NUMBER OF THE UURRENT BYTE 

GET EXPD BUFFER ADDRESS 

GET RECV BUFFER ADDRESS 

GET EXPD BYTE 

CLEAR UPPER BYTE 

SAVE FOR ERROR REPORT 

GET RECV BYTE 

CLEAR UPPER BYTE 

FOR ERROR "'ORT 

xn EXPD/RECV 

EXPO - RECV? 

BR IF YE C 

UPDATE ERROR COUNT 

PRINTED 8? 

BR IF YES 



50$ 



FORCERROR 27$,N0TSSR 

INC R4 

CMP R4.R5 

BGE 50$ 

HR 201 

PRINTX $PRBT0T, PRMNO 

MOV PRMNO, (SP) 

MOV ♦PRBTOT, -(SP) 

MOV «2, -(SP) 

MOV SP.RO 

TRAP C$PNTX 



tSSO 

isao 
1 wo 

t BSD 

j NUMBER OF THE NEXT 

jDONt ALL YET? 

jBR IF YES 

;D0 ANOTHER 

iPRINT TOTAL ERROR CuUNT 



B7 



CZTKFA TK-25 FRT END FUNC **2 MACRO M1200 20-APR-84 05U2 PAGE 57-1 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUTFER 



SEQ 79 



2704 
2705 
2706 
2707 
270« 
2709 
2710 
27U 



016200 062706 000006 
016204 000207 



016206 
016273 



045 
045 



116 
116 



045 
045 



016340 000000 
016342 000000 



PRBMSGj 

PRBTOTj 

PRBEXPj 
PRBRECi 



ADO 

RTS 

.ASCIZ 
.ASCIZ 
.EVEN 
.WORD 
♦ WORD 



♦* ,SP 

PC 



I RETURN 



•#N*A BYTE <M02#A EXPDi #03*A RECVi *Q3»A XOR { *03' 
•#N*A NUMBER Of BYTES IN ERROR * KD3' 

i EXPO 

iRECV 



C7TKFA TK-25 FRT ENO FUNC «2 MACRO M1200 

EXPREC - PRINT EXPD/RECV WORD DATA 



20-APR-84 08tl2 



C7 

PAGE 58 



5EQ 80 



2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 

2725 016344 
016344 

2726 016344 004737 Q07474 

2727 016350 
016350 
016350 104423 

2728 
2729 



♦SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



EXPREC}} 



U0017} 



BGNMSG EXPREC 

JbR PC.PRIXOR 

ENDMSG 



I PRINT THE DATA 



TRAP 



CIMSG 



D7 



6»B6§c T *-ftiW T eB*/6aS &ht om»° 



2731 
2732 

2735 
27X4 
?735 
2736 
2/57 
2738 
2739 
274C 
2741 
2742 

2743 

2744 

2745 
2746 



2748 
2749 

2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 

27 72 
2773 



2774 
27 75 
2776 
2777 
2778 
2779 



016352 

016352 

016352 004737 007344 

016356 

016356 

016356 104423 



016360 

016360 

016360 004737 013630 

016364 

016364 

016364 104423 



M1200 20 APR-84 08} 12 PAGE 59 

<SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



SEQ 81 



INPUTS! 



Rl 

R2 



RECEIVED DATA BYTE 

EXPECTED DATA BYTE 



BGNMSG EXPBREC 
EXPBREC J j 

JSR PC.PRIBXOR 

ENDHSG 
L 10020 j 

TRAP CIMSG 



I PRINT THE DATA 



,SBTTL RAMERR - PRINT RAM ANO PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NLUBER OT BYTES U l D ACKET 
IF RAMSIZ-0 THEN Dt>"AULT TO 8, 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



RAMERR: : 



L 10021: 



I ♦ 



BGNMSG RAMERR 

JSR PC.PMAMPKT 
ENOMSG 



iPRINT RAM/PACKET DATA 



TRAP 



CIMSG 



.SBTTL RAMTADD - PRINT TEST ADDRESS, RAM ANO PACKET DATA 



iPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 



2781 



I INPUTS! 



CZTKFA TK-2! 
RAMTAOD - Pi 



278? 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 



. FRT I 
!INT Tl 



■ST ADDRESS, RAM AND PACKET DATA 



E7 

-APR -84 08 {12 PAGE 59-1 



SEQ 82 



R4 



POINTER TO COHMAND PACKET 



IMPLICIT INPUTS: 

RAMOATA 
RAMSIZ 



2799 
2800 
2801 



2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 

2817 
2818 
2819 
2820 
2821 



2822 
2823 
2824 
2825 
2826 
282 7 
2828 
2829 
2830 
2831 
2832 



016366 
016366 
016366 
016372 
016376 
016376 
016376 



004737 
004737 



104423 



010026 
013630 



ERRHI 
ERRLO 

IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



BGNMSG RAiTAOD 
RAMTAOD: : 

JSR PC,PRITADD 

JSR PC.PRAMPKT 

ENDMSG 
L10022: 

TRAP CII1SG 



DATA AS READ FROM THE RAM 

NUMBER Of BYTES IN PACKET 

IF RAMSIZ-0 THEN DEFAULT TO 8. 

HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 



iPRINT TEST ADDRESS 
jPRINT RAM/PACKET DATA 



.SBTTL RAI1EXP - PRINT RAM EXPD/RECV DATA 

f 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 
R4 



RECEIVED OATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 



016400 
016400 
016400 
016404 
016410 
016414 
016420 
016420 
016420 



042701 
042702 
004737 
004737 



104423 



177400 
177400 
007620 
007474 



RAMEXP: 



BGNMSG RAMEXP 



L 10023: 



BIC 
BIC 
JSR 
JSR 

ENDMSG 

TRAP 



*fC<377>,Rl 

#tC<377>,R2 
PCPRIRAM 

PC.PRIXOR 



CtMSG 



I SAVE EXPO RAM DATA BYTE 

I SAVE EXPO RAM DATA BYTE 

j PR INT THE RAM ADDRESS 

jPRINT THE DATA 



.SBTTL 1IMEXP - PRINT TIMER A.B AND EXP/REC 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
AND TIMER A,B HEADER MESSAGE 



INPUTS? 



Rl 
R2 



RECEIVED DATA 
1-XPECTED DATA 



F7 



CZTKFA TK-; 
TIMEXP - I 



& y ymm 



#2 MACR 

AND EXP/RE 



M1200 20-APR-84 C8:12 PAGE 59-2 



2833 
2834 
2835 

2836 



2837 
2838 



2839 
2840 
2841 
2842 



016422 
016422 
016422 
016422 
016426 
016432 
016434 
016436 
016442 
016446 
016446 
016446 



016450 



012746 016450 

012746 000001 

010600 

104415 

062706 000004 

004737 007474 



104423 



045 



116 



l - 



TIMEXP: 



L10024: 



BGNMSG TIMEXP 



PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

JSR 

ENOMSG 

TRAP 



045 



TIMSGO: .ASCIZ 
.EVEN 



♦TIMSGO 

♦timsco.-csp) 
•1,-csp) 

SP.RO 
CIPNTX 
♦4.SP 
PC.PRIXOR 



CIMSG 



SEQ 83 



I PRINT HEADER 



j PRINT THE DATA 



*N*A TIMER A STATUS IS IN BIT 3*N*A TIMER B STATUS IS IN BIT 2 



G7 



CZTKFA TK-25 FRT END FUNC 02 MACRO M12O0 20-APR-84 08} 12 

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



PAGE 60 



SEQ 84 



2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 

2858 
2859 
2860 



2861 
2862 
2863 



2864 
2865 



016550 
016550 
016550 
016552 
016556 
016556 
016560 
016564 
016570 
016572 
016574 
016600 
016602 
016606 
016606 
016606 
016610 



.SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
t 

PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS; 



Rl 
R2 



CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 



BGNMSG BADSSR 



010246 
C42702 

010246 
012746 
012746 
010600 
104414 
062706 
012602 
004737 



104423 
045 



177400 



016610 
000002 



000006 
005264 

116 



045 



BADSSR;: 




MOV 


R2.-CSP) 


BIC 


♦177400 ,R2 


PRINTS 


♦XFERASC ,R2 


MOV 


R2.-CSP) 


MOV 


♦XFERASC, -CSP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


C1PNTB 


ADD 


♦6.SP 


MOV 


CSP)*,R2 


JSR 


PC.PRITSSR 


ENOMSG 




L 10025: 




TRAP 


CIMSG 


XFERASC: 


k ASCIZ »*N*A 



I SAVE DATA TRANSFERRED 
I GET JUST ONE BYTE 



^RESTORE R2 

j DECODE TSSR CONTENTS 



*03 



H7 



CZTKFA 7 
GLOBAL < 


K-25 FRT END FUNC *2 
UBROUTINES SECTION 


2867 






2868 






2869 






2870 






2871 






2872 






2873 






2874 






2875 






2876 






2877 






2878 






2879 






2880 






2881 






2882 






2883 






2884 






2885 






2886 






2887 






2888 






2889 






2890 






2891 






2892 






2893 






2894 






2895 






2896 






2897 






2898 






2899 






2900 






2901 






2902 


016644 




2903 


016644 




2904 


016650 


012765 000000 


2905 


016656 


0O4737 017120 


2906 


016662 


016500 OOOOOO 


2907 


016666 


010004 


2908 


016670 


042704 176277 


2909 


016674 


052704 002200 


2910 


016700 


020400 


2911 


016702 


001402 


2912 


016704 


000241 


2913 


016706 


000401 


2914 


016710 


000261 


2915 


016712 


000207 
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.SBTTL GLOBAL SUBROUTINES SECTION 

! THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
t THAT ARE USED IN MORE THAN ONE TEST. 
I -- 

.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO 00 A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



SEQ 85 



INPUTS: 



R5 



OUTPUTS: 



RO 
CARRY 



ADDRESS OF FIRST REGISTER 



CONTENTS OF TSSR, IF ERROR 
SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 



OOOOOO 



MOV 
JSR 
BCS 
ERRDF 



SOFINIT:: 

SAVREG 
MOV 
JSR 
MOV 
MOV 
BIC 
BIS 
CMP 
BEQ 
CLC 
BR 
51: SEC 
10* t RTS 



* ADDRESS, R5 
PC .SOFINIT 
CONTINUE 



j REPORT FATAL ERROR 



t SAVE THE REGISTERS 
*0,TSSRrR5) » DO THE INIT. 
PC.WAITF j WAIT FOfl SSR 
TSSRCR5),R0 jGET THE TSSR REGISTER 
R0.R4 i START SETUP OF EXPECTED TSSR 

♦ tC<HlADDRWL>,R4 , CLEAR OUT UNUSED BITS 
♦SSRJNBA.R4 »R4 HAS EXPECTED CONTENTS 
R4.R0 iONLY EXPECTED BITS SET ? 

51 j BRANCH IF OKAY 

j CLEAR THE CARRY FOR ERROR 
10$ i GO TO EXIT 

iSET THE CARRY BIT 
PC j RETURN TO CALLER 



17 



CZTKFA TK-25 FRT ENO FUNC *2 MACRO M1200 
CHKAMB - CHECK TSSR FOR AMBIGUITY 



2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2954 
2935 
293f. 
2937 
2938 
2939 
2940 
2^41 
2942 
2943 
2944 
2945 
2946 
2*47 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
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.SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 



SEQ 86 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUT: 



RO CONTENTS OF TSSR 



OUTPUT: 



RO CONTENTS OF TSSR 

CARRY SET - NO AM8IGUITY 

CLR - AMBIGUOUS CONTENTS 



016714 
016714 
016720 
016722 
016 726 
016730 
016754 
016736 
016740 
016744 
016746 
016752 
016754 
016760 
016764 
016766 
016770 
016774 
016776 
017002 
017004 
017006 
017010 
017012 



I - 



CHKAMB: 



010004 
032700 
001004 
052700 
001023 
000424 
052700 
001011 
052700 
001414 
042704 
020427 
001007 
000410 
052700 
001405 
052700 
001002 
000241 
000401 
000261 
000207 



100000 
174077 

000200 

000040 

177761 
000016 

000040 
00OO06 





SAVREG 






MOV 


R0,R4 i 




BIT 


♦SC.RO ; 




BNE 


5$ i 




BIT 


♦tC<NBA!OFL!SSR!H 




BNE 


40$ i 




BR 


45$ , 


5$: 


BIT 


♦SSR.RO i 




BNE 


10$ t 




BIT 


♦BIT5.R0 i 




BEQ 


40$ i 




BIC 


♦tCTERCLS,R4 i 




CMP 


R4,*16 i 




BNE 


40$ j 




BR 


45$ i 


10$: 


BIT 


*6IT5,R0 i 




BEQ 


45$ i 




BIT 


#BIT2!BIT1 I R0 * 




BNE 


45$ , 


40$: 


CLC 






BR 


50$ 


45$: 


SEC 




50$: 


RTS 


PC 1 



SAVE THE GENERAL REGISTERS 
CONTENTS OF TSSR 
IS BIT 15 SET ? 
BRANCH IF YES 
!HIAD0R>,R0 » ANY OTHER BITS SET 
MUST BE AN ERROR 
RETURN WITH SUCCESS 
IS READY BIT SET ? 
BRANCH IF REAOY BIT IS SET. 
IS FATAL ERROR BIT SET ? 
ERROR IF NOT 

CLEAR ALL BUT TERMINATION CODE 
ALL THREE BITS MUST BE SET 
ERROR IF NOT SET 
OK IF ALL ARE SET 
IS FATAL ERROR BIT SET ? 
ERROR IF BIT IS SET WITH SSR 
IS THIS A FUNCTION REJECT 
BR, IF TSSR IS OK 
AMBIGUOUS CONTENTS 

SHOW SUCCESS - NO AMBIGUITY 
RETURN TO CALLER 



J7 



CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 
ENAINT.DSBINT - ENABLE/DISABLE INTERRUPTS 



2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 



017014 
017015 

017016 
017020 



017022 
017024 
017030 
017034 
017040 
017042 
017044 
017052 



017054 
017056 
017064 



000200 
000001 



000 
000 

OOOOOC 
000000 



010046 
013700 
012720 
012720 
012600 
011646 
012766 
000002 



011646 
012766 
000002 



002156 
017066 
000340 



000000 000002 



000340 000002 
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.SBTTL ENAINT.DSBINT - ENABLE/DISABLE INTERRUPTS 



SEQ 87 



} DEFAULT DISPLAY INTERRUPT HANOLERS. 

; IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 

j OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 



i BIT DEFINITIONS FOR "INTMASK" ANO "INTFLAG" BYTES; 



I0KCKIN-BIT7 
IOKSTP-BITO 



j DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 
I EXPECT "STOP" INTERRUPT. 



{INTERRUPT MASK — SAYS EXPECTING INTERRUPTS 

INTMASK: .BYTE 

l INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE) 

INTFLAG: .BYTE 

i SAVED INTERRUPT VECTOR; 

INTVEC: .WORD 
;SAVE CPU PC 

INTCPC; .WORD 



j SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO.-CSP) j SAVE RO 

IVEC,RO 

♦INTR.CRO)* 

#PRI07,CR0)* 

(SP)*,RO 

(SP).-CSP) 

*0,2(SP) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



jGET POINTER TO VECTORS 
jSET UP INTERRUPT VECTOR 

iRESTORE RO 

jSET CPU TO LEVEL 



j SUBROUTINE TO DISA3LE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 

DSBINT; MOV (SP).-(SP) 

MOV 0PRI07,2(SP) 

RTI 



kit m .-®mw>>m& 
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3001 
3002 
3003 

3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 



3013 
3014 



017066 

017066 

017066 012737 000001 002172 

017074 105037 017015 

017100 132737 000001 017014 

017106 001003 

017110 152737 000001 017015 



017116 
017116 
017116 
017116 000002 



INTR:; 



.SBTTL INTR 
BGNSRV INTR 



i<7 

PAGE 64 

- INTERRUPT HANDLERS 



SEQ 88 



jDEFINE INTERRUPT ENTRY 



MOV Ol.INTRECV ,SET FLAG TO SHOW INTERRUPT RECEIVED 

CLRB INTFLAG j CLEAR FLAG TO SAY WE GOT INTERRUPT 

BITB *IOKSTP,INTMASK jEXPECTING STOP INTERRUPT? 

BNE 1$ i BR IF YES 

BISB *IOKSTP, INTFLAG ;N0, SET THE ERROR FLAG. 

;SAVE REGISTERS, MSG BUFFER, ETC. 
II: 

ENOSRV 
L 10026 : 

RTI 



CZTKFA TK-25 FRT END FUNC *2 MACRO M1200 
WAITF - WAIT FOR SUBSYSTEM READY 
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SEQ 89 



3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 

3031 
3032 



3033 
3034 
3035 
3036 
3037 



3038 

3039 
3040 
3041 
3042 
3043 
3044 
5045 



017120 
017120 
017122 
017126 
017126 
017132 
017154 
017140 
017142 
017146 
017150 
017154 
017156 
017162 

017164 

017166 
017166 
017172 
017174 
017200 
017202 
017206 
017210 
017214 
017216 
017216 
017220 
017222 
017224 
017226 
017230 
017232 
017234 



104422 
012746 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016500 
105700 

100421 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 

104422 
005316 
001355 
000241 
000401 
000261 
005326 
000207 



.SBTTL WAITF - WAIT FOR SUBSYSTEM READY 
SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
INPUTS: 

R5 ADDRESS OF FIRST DEVICE REGISTER 
OUTPUTS; 



WAITF 



177776 
000001 
002116 
177772 
177756 
000000 

000001 
002116 
177772 
177756 



2$: 



Si: 
4$; 



RO 
CARRY 



BREAK 

TRAP 

MOV 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

MOV 

TSTB 

BMI 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

BREAK 

TRAP 

DEC 

BNE 

CLC 

BR 

SEC 

DEC 

RTS 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 



CIBRK 

•177776,-fSP) 

1 

*1,CPC)* 



L$DLY,(PC)* 



-6CPC) 

.-4 

-22CPC) 

.-20 

TSSR(R5).R0 

RO 

3$ 

1 
•l.CPO* 

o 

L*DLY,CPC)v 



-6CPC) 

.4 

-22CPC) 

. -20 

C1BRK 
CSP) 

2$ 

4$ 

CSP)* 
PC 



I DO A SUPVSR BREAK FIRST. 

t BIG MSEC TIMER 
I DELAY 100US 



iREAD THE. TSSR REGISTER 
I TEST FOR READY P:T SET 

j EXIT ON STOP FlAG. 
I WAIT 100 USEC 



j DO A SUPVSR BREAK FIRST. 

j REDUCE DELAY COUNT 

, RETRY UNTIL TIMER EXPIRES 

j C - 0. CONTROLLER STILL RUNNING... 

j... OR HUNG-UP AFTER 300 MSEC. 

j C - 1. CONTROLLER IS STOPPED. 

jRESTORE STACK WITHOUT CHANGING CARRY BIT 



CZTKFA TK-25 FRT END FUNC 42 
CHKTSSR - CHECK TSSR FOR READY 

304 7 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 

305 7 
3058 
3059 
3060 
3061 
3062 
3063 
T064 
3055 

30..* 017236 

3067 C 17236 004 737 017120 

3068 017242 103014 

3069 017244 004737 016714 

3070 017250 103006 

3071 017252 032700 1000O0 

3072 017256 001405 

3073 017260 032700 074000 

3074 017264 001402 
30/5 017266 000241 

3076 017270 000401 

3077 017272 000261 

3078 017274 000207 



MACRO M1200 20-APR-84 08:12 



M7 
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SEQ 90 



.SBTTL CHKTSSR - CHECK TSSR FOR READY 



J ♦ 



j THIS ROUTINE WAITS FOR READY IN THE TSSR 
;AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR 



j INPUT ? 



R5 



OUTFJTs 



} - 



ADDRESS OF CSR REGISTERS 



RO CONTENTS OF TSSR 
CARRY SET - OKAY 

CLR - NOT READY AMBIGUOUS, OR SC SET 



I WAIT FOR READY 

j BRANCH IF TIME OUT 

j TSSR MM8IG0US? 

jBR IF YES 

I SPECIAL CONOITION SET? 

jBR IF NO 

M>.R0 i ANY ERROR BITS SET? 

•BR IF NO 

jS«-:t failure 

i set success 
{return to caller 



CHKTSSR 


« 
• 






JSR 


PC.UAITF 




BCC 


20$ 




JSR 


PCCHKAMB 




BCC 


10$ 




LIT 


OSC.RO 




BEQ 


15$ 




BIT 


*<SCE!BIE 




BEQ 


15$ 


101: 


CLC 






BR 


20$ 


15$: 


SEC 




20$; 


RTS 


PC 



N7 



CZTKFA TK-25 FRT END FUNC 4£ MACRO M1200 
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SEQ 91 



3080 








3081 








3082 








3083 








3084 








3085 








3086 








3087 








3088 








3089 








3090 








3091 


017276 


012737 


017330 000004 


3092 


017304 


012737 


000200 000006 


3093 


017312 


005003 




3094 


017314 


005711 




3095 








3096 


017316 


020102 




3097 


017320 


001407 




3098 


017322 


062701 


000002 


3099 


017326 


000772 




3100 








3101 


017330 


005103 




3102 


017332 


012716 


017340 


3103 


017336 


000002 




3101 


017340 








017340 


012700 


000004 




017344 


104436 




3105 


017346 


005703 




3106 


017350 


001401 




3107 


017352 


000261 




3108 


017354 


000207 




3109 








3110 








3111 








3112 








3113 








3114 








3115 








3116 








3117 








3118 








3119 








3120 








3121 


017356 






3122 


017356 


005737 


002136 


3123 


017362 


001006 




3124 


017364 


005737 


002152 


3125 


01/3/0 


100403 




3126 


01/372 


005337 


002164 


312 7 


01/376 


001002 




3128 


017400 


000241 




3129 


017402 


000401 




3130 


017404 


0002*1 




3131 


017406 


000207 





.SBTTL XNXM 



- CHECK FOR NONEXISTENT MEMORY 



I ROUTINE TO TEST FOR A NEXM IN THE RANGE CR1) THRU CR2). 
; ON RETURN, IF "Q" - 1, CRD - NEXM ADDRESS. 
5 H C" - 0, ALL ADDRESSES OK, 

; CALL : 



XNXM: 



1$: 



2$: 



3$: 



MOV 


ADR1.R1 


MOV 


ADR2.R2 


JSR 


PC, 


NXM 


RETURN 




MOV 




02 1 , U04 


MOV 




*PRI04,Q46 


CLR 




R3 


TST 




CRD 


CMP 




R1.R2 


BEQ 




3$ 


ADD 




#2,R1 


BR 




1$ 


COM 




R3 


MOV 




*3$ # <SP) 


RTI 






CLRVEC 


#4 


MOV 




*4,R0 


TRAF 




CICVEC 


TST 




R3 


BEQ 




. *4 


SEC 






RTS 




PC 



j TEST "C" AND PROCEED, 

I SET BUSERR VECTOR. 

I FLAG. 

j TEST THE ADDRESSCES). 

j IF ANY TRAP, CONTINUE AT 2$. 

I OTHERWISE, CONTINUE HERE. 

,BR IF FINISHED (NO NEXM'S). 

iSET NEXT ADDRESS. 

j .. .AND CONTINUE. 

I GOT ONE, SET ^LAG. . . 

8...AN0 DISMISS INTERRUPT... 
t. \m GIVE BACK THE. VECTOR. 



I DID r 4E CATCH ONE ?? 

I NO, : 'C" - 0, SKIP NEXT. 

;YES, "C" - 1, CRD - NEXM ADDR 



.SB T TL TSTLOOP - CHECK ITERATION COUNT 

* 

SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT UITH "C" SET IF LOOPS ALLOWED ANO LOOP COUNT NON-ZERO. 

LOOP COUNTER IS SET BY "BEGIN. TEST" MACRO, 



i CALL: 


LOOPTO 


ARG 




TSTLOOP 


• > 








*TbT 


NOITS 


i ITERATIONS INHIBITED? 




BNE 


1$ 


1 YES. 




TST 


QVP 


I NO. 




BMI 


1$ 


j LOOPS DISALLOWED IN QUICK PASS. 




DEC 


LOOPCNT 


l BUMP LOOP COUNTER. 




BNE 


2* 




1$: 


CLC 




} LOOP DISALLOWED, OR DONE. 




BR 


3$ 




2$: 


SEC 




j LOOP ENABLED. 


3*2 


RTS 


PC 





B8 



CJTKFA 1K25 FRT END FUNC *2 MACRO M1200 20-APR-84 08:12 PAGE 6ft 

TSTLOOP - CHECK ITERATION COUNT 



SEQ 92 



3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
M42 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 



3174 
3175 
3176 



3177 
3178 



3179 



017410 
017410 
017412 
017416 
017422 
017426 
017432 
017436 
017440 
017444 
017446 
017450 
017456 
017456 
017460 
017462 
017464 
017466 
017470 
0174 76 
017476 
017500 
CI 7502 
017504 
017506 
017514 
017514 
017520 
017522 



010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
001430 
100010 
052760 

104455 
000001 
003636 
005176 
000407 
052760 

104455 
000002 
0O4233 
000000 
012737 

013700 
104451 



•S8TTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE, 
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



INPUT 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT : 



R5 



ADDRESS Of FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



003106 
017656 
005232 
017014 
002150 

003062 



160000 003130 



TSTSETUP:: 
MOV 



160001 003130 5$: 



177777 
002150 



QQ3Q60 £1 



CLR 

CLR 

CLR 

CLR8 

MOV 

ASL 

TST 

BEU 

BPL 

BIS 

ERROF 

TRAP 

.WORO 

.WORD 

.WORO 

BR 

BIS 

ERROF 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

DOOU 

MOV 

TRAP 

DOCLN 



RO.-(SP) 

SIFLAG 

ERRK 

EXTA 

INTMASK 

UNITN.RO 

RO 

NOOEV 

41 

31 

♦160000. ERTABLC 

i.NXR.NXRERR 

CIERDF 

1 

NXR 

NXRERR 

21 

♦160001. ERTABLC 

2,^0INIT 

CIERDF 

2 

NOINIT 



♦ l.DUFLG 
UNITN 
LUITN.RQ 
CIDODU 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT NUT*ER. 
... AND MAKE IT A WORD OFFSET, 
DID STAPTUP FIND T>€ DEVICE? 
BR IF YES 
BR IF NOT IDLE 
RO) t FLAG ERROR IN THE ERROR TABLE 
I NO DEVICE HERE -- PRINT IT 



RO) t FLAG ERROR IN THE ERROR TABLE 
i DEVICE NOT IDLE 



j DROP THE UNIT 
i A&QftT THE PASS 



KfHW.-^H? fS^HWfc^) M%m%<m* p »- 6 * 08!l2 
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SEQ 93 



3180 
3181 
3182 

3183 
3184 
3185 
3186 



3187 
3188 



3189 
3190 
3191 
3192 
3193 



017522 
017524 

017526 
017526 
017530 
017534 
017536 
017540 
017540 
017542 
017546 
017552 
017554 
017556 
017562 
017566 
017566 
017572 
017574 
017576 
017602 
017604 



104444 
000423 



104421 
032700 
001412 
011600 

010046 
012746 
012746 
010600 
104417 
062706 
005237 

013700 
104441 
005726 
013705 
000207 
045 



001000 



017604 
000002 



000006 
002162 

002160 



002154 
123 



41 1 



1$: 

51: 

045 TNAM; 



TRAP 
BR 

RFLAGS 

TRAP 

BIT 

BEQ 

MOV 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

INC 

SETPRI 

MOV 

TRAP 

TST 

MOV 

RTS 

.ASCIZ 

♦ EVEN 



C*DCLN 
5$ 

RO 

CIRFLA 

♦PNT.RO 

1$ 

(SP),RO 

#TNAM,RO 

RO.-(SP) 

#TNAM,~(SP) 

♦2,-(SP) 

SP.RO 

C1PNTF 

♦6.SP 

T5TCNT 

IPRI 

IPRI.RO 

CISPRI 

CSP)» 

CSRADDR.R5 

PC 

<*S*T*A T««t 



l GET THE OPERATOR FLAGS. 

I PRINT THE TEST NUMBERS? 

I BR IF NO 

» GET THE ID MESSAGE 

l DISPLAY THE TEST ID 



I BUMP TEST COUNTER, 
iPRIORITY THAT OF DEVICE 



iFIX UP THE STACK 

i ADDRESS Of TSV REGISTERS ON UNIBUS 



D8 
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SEQ 94 



I 



319? 
3198 
3199 
3200 

3201 
3202 
3203 



3204 
3205 
3206 
3207 
3206 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 

3237 
3238 
3239 
3240 



017620 
017620 
017622 
017626 
017630 
017630 
017634 
017640 
017644 
017646 
017650 
017654 

017656 
017660 
017677 



017744 
017750 
017752 
017756 
017760 
017764 
017766 
017772 
017774 
017776 
020000 

020002 
020004 
020010 
020012 
020016 
020022 
020026 
020030 
020036 
020040 
020040 
020042 
020046 
020050 
020056 
020056 
020060 
020062 



104421 
030027 
001412 

013746 
012746 
012746 
010600 
104417 
062706 
000207 

000000 
045 
105 



005237 
01"046 
013700 
006300 
062700 
005210 
032710 
001001 
005310 
012600 
000207 

010046 
013700 
006300 
016000 
042700 
020037 
103004 
023737 
103417 

104421 
032700 
001013 
012737 

104455 
000004 
017677 



020000 



017656 
017660 
000002 



000006 



101 
122 



017656 
002150 
003130 
007777 



002150 

003130 
170000 
002142 

017656 002140 



.SBTTL TSTENO - PRINT ERRORS RECEIVED 

I AT ENO OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
i IF NORMAL ERROR REPORTING IS DISABLED (FLAjIER). 

TSTENO; 



I BR IF "IER" NOT SET, 
j PRINT ERROR COUNT. 



1$: 



ERRK: 
040 ESUH: .ASCIZ 
122 EMAXOUi .ASCIZ 
.EVEN 



RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


ROSIER 


BEQ 


1$ 


PRINTF 


♦ESUM.ERRK 


MOV 


ERRK,-(SP) 


MOV 


^esuM.-(sP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


CtPNTF 


ADD 


06,SP 


RTS 


PC 



I LOCAL ERROR COUNT. 
/tfA 404A ERRORS/ 
/ERROR LIMIT REACHED -- DROPPING UNIT/ 



000040 

177777 



003060 



.S8TTL INCERK - INCREMENT LOCAL ERROR COUNT 

I ROUTINES TO INCREMENT LOCAL ERROR COUNT ANO CHECK FOR LIMIT: 

INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER, 

... ANO MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

RH IF NO 

YES -- BACK IT UP TO 7777. 

RESTORE RO 

RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

... ANO MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 

BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES 

NO •- DROP THE UNIT 



1 - 






INCERK t 


INC 


ERRK , 




MOV 


RO,-(SP) i 




MOV 


UNITN.RO i 




ASL 


RO i 




ADD 


♦ERTABL.RO j 




INC 


(RO) i 




BIT 


♦7777, (RO) i 




BNE 


1* » 




DEC 


(RO) i 


1»: 


MOV 


(SP)*,RO i 




RTS 


PC j 


CKEMAXs 


MOV 


RO.-(SP) i 




MOV 


UNITN,RO i 




ASL 


RO i 




MOV 


ERTA8L(R0),R0 i 




BIC 


♦170000, RO i 




CMP 


RO.GERRMAX t 




BHIS 


1* i 




CMP 


ERRK.LERRMAX i 




BLO 


2$ i 


1$: 


RFLAGS 


RO i 




TRAP 


CIRFLA 




BIT 


♦IDU,R0 i 




BNE 


2$ t 




MOV 


♦-1.DUFLG i 




ERRDF 


4.EMAXDU 




TRAP 


CIERDF 




.WORD 


4 




.WORD 


EMAXDU 



E8 



CZTKFA TK-25 FRT END TUNC 02 MACRO M1200 
INCERK - INCREMENT LOCAL ERROR COUNT 



3241 



3242 

3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 

3261 
3262 

3263 
3264 
3265 
3266 

3267 



020064 
020066 
020066 
020072 
020074 
020074 
020076 
020100 



020102 
020102 
020106 
020112 
020114 
020122 
020126 
020134 
020136 
020136 
020140 
020144 
020146 
020152 



OOOOOO 

013700 
104451 

104444 
012600 
000207 



013701 
006301 
062761 
005237 
023727 
002406 

104421 
032 700 
001002 
004737 
000207 



002150 



2$ 



FATCHK: 



002150 

000001 
002170 
002170 



040000 
020154 



003130 
000031 



9$: 

i 
1 
1 



APR-84 


08:12 PAGE 69-1 


.WORD 





DOOU 


UNITN 


MOV 


UNITN.RO 


TRAP 


CIDODU 


DOCLN 




TRAP 


CIDCLN 


MOV 


(SP)*,RO i RESTORE RO 


RTS 


PC j RETURN TO CALLER 


.SBTTL 


FATCHK - INC FATAL ERRORS ANO CHECK 



SEQ 95 



FOR LIMIT 



CHECK FATAL COLTER, AFTER INC, FOR MORE THAN 25 
ERRORS ANO IF OVER CALL UNIT DROP ROUTINE 



SAVREG 




MOV 


UNITN.R1 


ASL 


Rl 


ADO 


n.ERTABLCRl) 


INC 


FATFLG 


CMP 


FATFLG,*25, 


9LT 


9$ 


RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


♦6IT14.R0 


BNE 


91 


JSR 


PC.CKDROP 


RTS 


PC 



jBETTER SAVE THE REGISTERS 

IPICK UP THE UNIT NUMBER 

iMAKE IT INTO A BYTE OFFSET 

I ADO 1 TO THE PROPER UNIT'S ERROR COUNTER 

l BUMP FATAL ERROR COUNTER 

» CHECK AGAINST 25 

iBR f IF LESS THAN 25 ERRORS 

i READ THE FLAGS INTO RO 

tBR, IF LOOP ON ERROR IS SET 

, OTHERWISE NEVER BE ABLE TO SCOPE ETC, 

iDROP UNIT IF ALLOWED 

jRETURN ETC. 



F8 



CZTKFA TK-25 FRT END FUNC *2 MACRO M1200 20-APR-84 08:12 
CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
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SEQ 96 



3269 

3270 
3271 
3272 
3273 
3274 
3275 

3276 
3277 
3278 
3279 
3280 



3281 

3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
"J292 
3293 
3294 
3295 
3296 
3297 



020154 
020156 
020166 
020166 
020170 
020174 
020176 
020200 
020206 
020206 
020212 
020214 
020214 
020216 
020220 



020222 
020222 
020226 



.SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
i ♦ 
j CHECK IF UNIT SHOULD BE DROPPED 



010046 



104421 

032700 000040 

001010 

011600 

012737 177777 

013700 002150 
104451 

104444 
012600 
000207 



003060 



1 - 




CKDROP: 


MOV RO,-CSP) 




FORCERROR 1*.N0TSSR 




RFLAGS RO 




TRAP CIRFLA 




BIT OIDU.RO 




BNE 1$ 




MOV CSP),RO 




MOV *-l.DUFLG 




DODU UNITN 




MOV UNITN.RO 




TRAP CIDODU 




DOCLN j 




TRAP CtDCLN 


1*: 


MOV (SP)f«RO 




RTS PC 



l ABORT THE PASS 



.SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
i SUBROUTINE - DETERMINE CONFIGURATION OF TK-25 SYSTEM. 



004737 016644 
000207 



CONFIG: 



JSR PC.SOFINIT 
RTS PC 



G8 



CZTKFA TK-25 FRT ENO FUNC 02 MACRO M1200 20-Ai'R-84 08:12 
KTQN.KTOFF - ENABLE/DISABLE MEMORY MANAGEMEN1 
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SEQ 97 



3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 



020230 005737 003100 

020234 001403 

020236 012737 000001 177572 

020244 000207 



020246 005737 003100 

020252 001405 

020254 000240 

020256 000240 

020260 012737 000000 177572 

020266 000207 



.SBTTL KTON.KTOFF 
i SUBROUTINE - ENABLE MEM MGT 
KTON; 



1*: 



- ENABLE/DISABLE MEMORY MANAGEMENT 



TST 


KTFLG 


I GOT KT? 


BEQ 


1$ 


t NO. 


MOV 


*l t SRO 


, YES. ENABLE KTll. 


R7S 


PC 





j SUBROUTINE • 


. DISABLE 


MEM 


MGT. 




KTOFFi 


TST 


KTFLG 






i GOT KTll? 




BEQ 


It 






1 NO. 




NOP 












NOP 












MOV 


*O.SR0 






i DISABLE KT t 


1*: 


RTS 


PC 









:rKFA TK 
■TMAP - 



3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 



:TUP PAR6 MAPPING 



MACRO M1200 20-APR-84 08:12 



H8 
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SEQ 98 



020270 
020270 
020274 
020300 
020302 



020334 
020340 
020344 
020346 
020352 
020356 
020362 
020364 
020366 
020370 
020372 



005737 
001433 
010102 
000006 



042701 
020137 
103011 
010137 
042702 
062702 
010200 
000261 
000401 
000241 
000207 



.SBTTL SETMAP - SETUP PAR6 MAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO 
Rl 



OUTPUTS: 



003100 



000177 
003100 

172354 
160000 
140000 



RO 
CARRY 



SETMAP: 

SAVREG 
TST 
BEQ 
MOV 
.REPT 
ASR 
ROR 
♦ ENOR 
BIC 
CMP 
BHIS 
MOV 
BIC 
ADD 
MOV 
SEC 
BR 
10$: CLC 
15$: RTS 



HIGH OROER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 



KTFLG 

10$ 

R1.R2 

6 

RO 

Rl 

U77.R1 

Rl, KTFLG 
10$ 

R1.»#KIPAR6 
#160000 t R2 
#140000, R2 
R2.R0 

15$ 

PC 



»SAVE R1-R4 UNTIL NEXT RETURN 

I SYSTEM HAVE ABOVE 28K? 

I BR IF NO 

iSAVE LOW ORDER BITS 

i CONVERT WORO AOORESS TO 32W BLOCKS 
i MAKE IT DOUBLE PRECISION 

i ALINE FOR LOWER 4K BOUNDARY 
iHIGHER THAN EXISTING MEMORY? 
I BR IF YES 

I SETUP MAPPING REGISTER PAR6 
I SETUP DISPLACEMENT IN PAGE 
j ADO IN PAR6 BIAS 
i RETURN IN RO 
j SET SUCCESS 

tSET FAILURE 
{RETURN 



18 



CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 20-APR-64 08:12 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
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SEQ 99 



3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3358 
3389 
33**) 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 



020374 
020374 
020400 
020404 
020406 
020412 
020416 
020420 
020422 
020424 
020430 
020432 
020436 
020440 



020510 
020514 
020516 
020522 
020524 
020530 
020536 
020544 
020546 
020552 
020556 



004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001452 
0O4737 
005000 
013701 
000006 



004737 
010320 
020027 
103774 
162700 
062737 
023737 
001402 
000137 
004737 
000207 



.SBTTL FILLMEM - TILL MEMORY WITH BACKGROUND PATTERN 

FILL MEMORY WITH A BACKGROUND PATTERN 

INPUTS: 

RO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG ■ SET TO HIGHEST MEMORY LOCATION IF > 28K. 

OUTPUTS: 

NONE 



FILLMEM: 



020246 

003072 
003074 



003100 
020230 
003104 



10$: 



020270 

160000 

020000 
000200 
172354 

020514 

020246 



30$: 



172354 
003100 



50i: 
55$: 



SAVREG 

JSR 

MOV 

MOV 

MOV 

MOV 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

.REPT 

CLC 

ROL 

ROL 

.ENDR 

JSR 

MOV 

CMP 

BLO 

sue 

ADD 
CMP 
BEQ 
JMP 

JSR 
RTS 



PC.KTOFF 

R0.R3 

FREE.R1 

FRESIZ.R2 

R3.CR1)* 

R2 

10$ 

KTFLG 

55$ 

PC.KTON 

RO 

PST32W.R1 

6 

Rl 
RO 

PC.SETMAP 

R3,(R0)f 

RO. $160000 

30$ 

♦20OO0.RO 

♦200,B«KIPAR6 

©♦KIPAR6. KTFLG 

50$ 

30$ 

PC.KTOFF 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE UF FREE SPACE BELOW 28K. 

STORE A BACKGROUND WORD 

DOT* ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADORESS START 
GET >28K START ADDRESS (IN 32W BLOCKS) 

CLEAR C BIT 

CONVERT BLOCKS TO WORDS 

MAKE IT DOUBLE PRECISION 

SETUP PAR6 MAPPING REGISTER 
STORE TEST PATTERN IN >28K ADDRESS 
ENO OF PAR6 MAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28K. 
ENO OF MEMORY? 
BR IF YES 
KEEP GOING ON ETC. 
DISABLE KT. 



J8 



CZTKFA TK-25 FRT ENO FUNC #2 MACRO M1200 20-APR-84 08:12 PAGE 74 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 



SEQ 100 



34U 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3436 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 



020560 
020560 
020564 
020566 
020572 
020576 
020602 
020604 
020606 
020612 
020616 
020622 
020626 
020630 
020632 
020634 
020636 
020642 
020644 
020650 
020652 



020706 

020712 
020714 
020716 
020722 
020724 
020726 
020730 
020732 
020734 



010003 
004737 
013701 
013702 
020311 
001411 
010137 
005037 
010337 
011137 
0OO474 
005721 
005302 
003362 
005737 
001472 
0O4737 
005000 
013701 
000006 



042701 
010046 
010146 
004737 
010004 
012601 
012600 
020314 
001411 
010037 



.SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 

COMPARE MEMORY WITH A BACKGROUND PATTERN 

INPUTS; 

RO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG ■ SET TO HIGHEST MEMORY LOCATION IF > 28K. 



OUTPUTS; 



CARRY 
CARRY 



- SET IF 

- CLR IF 



NO ERROR 
ERROR 



IMPLICIT OUTPUTS; 



CMPMEM; 



020246 
003072 
003074 



002204 
002202 
002176 
002200 



003100 
020230 
003104 

000177 
0202/0 



10$; 



15$; 



30$ j 



002H02 



ERRHI 
ERRLO 
EXPD 
RECV 



SAVREG 

MOV 

JSR 

MOV 

MOV 

CMP 

«EQ 

MOV 

CLR 

MOV 

MOV 

BR 

TST 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

.REPT 

ROL 

ROL 

.ENOR 

BIC 

MOV 

MOV 

JSR 

MOV 

MOV 

MOV 

CMP 

BEQ 

MOV 



- ERROR HIGH ADDRESS 

- ERROR LOW ADDRESS 

- EXPECTED DATA 

- RECEIVED DATA 



RO,R!> 

PC.KTOFF 

FREE,R1 

FRESI7.R2 

R3.CR1) 

15$ 

Rl, ERRLO 

ERRHI 

R3.EXPD 

CRD, RECV 

50$ 

CRD* 

R2 

10$ 

KTFLG 

55 ¥ 

PC, K TON 

RO 

PST32W.R1 

6 

Rl 

RO 

#177. Rl 

RO,-(SP) 

Rl.-CSP) 

PC.SETMAP 

R0,R4 

CSP)*.R1 

CSP)»,R0 

R^,CR4) 

32$ 

R0» ERRHI 



SAVE R1-R5 UNTIL NEXT RETURN 

COPY TEST PATTERN 

DISABLE KT. 

GET FIRST FREE LOCATION 

SIZE OT FREE SPACE BELOW 28K. 

FREE SPACE LOCATION EQUAL TO EXPD? 

BR IF YES 

SAVE ADORESS IN ERROR 

NO HIGH ADDRESS 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL. MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT, 

YES. ENABLE KT , 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32W BLOCKS) 

CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNDARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY ADORESS BIASED TO PAR6 

RESTORE LOW ORDER IN NON PAM6 FORMAT 

RESTORE HIGH ORDER IN NON PMR6 FORMAT 

ABOVE 28K LOCATION EQUAL EXPD? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 



I<8 



CZTKFA TK-25 FRT END FUNC 42 MACRO M1200 2< 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 

3468 020740 010137 002204 

3469 020744 010337 002176 

3470 020750 011437 002200 

3471 020754 000421 

3472 020756 062701 000002 32$; 

3473 020762 005500 

34 74 020764 062704 000O02 

3475 020770 020427 160000 

3476 020774 103755 

3477 020776 162704 020OO0 

3478 021002 062737 000200 172354 

3479 021010 023737 172354 003100 

3480 021016 101744 

3481 021020 004737 020246 50$: 

3482 021024 000241 

3483 021026 000403 

3484 021030 004737 020246 55*: 

3485 021034 000261 

3486 021036 000207 60$: 
3487 



APR -84 


08:12 PAGE 74-1 


MOV 


Rl.ERRLO 


MOV 


R3.EXPD 


MOV 


CR4).RECV 


BR 


50$ 


ADD 


♦2.R1 


ADC 


RO 


ADD 


*2,R4 


CMP 


R4.4 160000 


BLO 


30$ 


sue 


♦20000, R4 


ADD 


*200,&*KIPAR6 


CMP 


S*KIPAR6,KTFLG 


BLOS 


30$ 


JSR 


PC.KTOFF 


CLC 




BR 


60$ 


JSR 


PC.KTOFF 


SEC 




RTS 


PC 



SEQ 101 



j SAVE LOW ORDER IN ERROR 
I SAVE EXPD FOR ERROR REPORT 
i SAVE RECV FOR ERROR REPORT 

! UPDATE NON PAR6 ADDRESS 

iMAKE IT DOUBLE PRECISION ADO 

j UPDATE PAR FORMAT ADDRESS 

lENO OF PAR6 MAPPING AREA? 

i BR IF NO 

l BACKUP INTO PAR6 MAPPING BEGIN 

I POINT TO NEXT 4K BLOCK >28K. 

jENO OF MEMORY? 

iBR IF NO 

I TURN OFF MEMORY MAPPING 

{SET 



OFF MEMORY 
FAILURE 



jTURN OFF MEMORY MAPPING 
iSET SUCCESS 



CZTKFA TK-25 FRT END FUNC *2 
REGSAV - SAVE R1-R5 ON STACK 



MACRO M1200 20-APR-84 08; 12 



L8 

PAGE 75 



SEQ 102 



3489 






3490 






3491 






3492 






3493 






3494 






3495 






3496 






3497 






3498 






3499 






3500 






3501 






3502 






3503 






3504 






3505 






3506 






3507 






3508 






3509 


021040 




3510 


021040 






021040 


1C4422 


3511 


021042 


010446 


3512 


021044 


010346 


3513 


021046 


010246 


3514 


021050 


010146 


3515 


021052 


010546 


3516 


021054 


016605 000012 


3517 


021060 


0O4736 


3518 


021062 


012601 


3519 


021064 


012602 


3520 


021066 


012603 


3521 


021070 


012604 


3522 


021072 


012605 


3523 


021074 






021074 


104422 


3524 


021076 


000207 


3525 







.SBTTl REGSAV - SAVE R1-R5 ON STACK 

♦ 

ROUTINE TO 

SAVE Rl THROUGH R5 ON THE STACK 

CALLING SEQUENCE: 

JSR R5.REGSAV 

THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS, 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



i LOOK FOR CNTL C 



REGSAV j 




BREAK 




TRAP 


CIBRK 


MOV 


R4.-CSP) 


HOV 


R3.-CSP) 


MOV 


R2.-CSP) 


MOV 


Rl.-CSP) 


MOV 


R5.-CSP) 


MOV 


10.CSP),R5 


JSR 


PC.B(SP)* 


MOV 


(SP)*.R1 


MOV 


CSP)*,R2 


MOV 


(SP)*,R3 


MOV 


(SP)*,R4 


MOV 


CSP)*.R5 


BREAK 




TRAP 


CIBRK 


RTS 


PC 



jLOOK FOR CNTL C 



M8 



gara? ™w§WpwrcRawmw^ 



3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
354 7 
3548 



3549 

3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 



021100 
021100 
021104 
021104 
021106 
021110 
021112 
021114 
021116 
021120 
021122 
021124 
021124 
021124 
021126 
021132 



021134 
021136 



104443 
000406 
021134 
000022 
021136 
0O0377 
OOOOOO 
000377 



103367 

013700 021134 

000207 
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.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 



SEQ 103 



i ♦ 



i ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
! INPUTS; 

NONE. 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 
CALLING SEQUENCE; 

JSR PC t GETPAT 



i SAVE THE GENERAL REGISTERS 



GETPAT: 


SAVREG 




1$: 


GMANID 


DATASC, PA 




TRAP 


CIGMAN 




BR 


10000$ 




.WORD 


PATDAT 




.WORD 


T1C0DE 




.WORD 


DATASC 




.WORD 


377 




.WORD 


TJLOLIM 




.WORD 


TIHILIM 


10000$: 








BNC0MPLE1E 1 




BCC 


1$ 




MOV 


PATDAT ,R0 




RTS 


PC 



j RETRY IF ERROR 

,DATA PATTERN FROM OPERATOR 
jRETURN TO CALLER 



i LOCAL DATA AREA 



OOOOOO 
105 



116 



124 



PATDAT: .WORD 
DATASC: .ASCIZ 
.EVEN 



j TEMPORARY STORAGE FOR DATA 

'ENTER DATA PATTERN' 



N8 



fZTKFA TK-25 FRT END FUNC 42 MACRO M1200 20-APR-84 08:12 
l ETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
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SEQ X04 



3561 
3562 
3563 
3564 
3565 
3566 
3567 
3563 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
35e2 



3583 
3584 



3585 

3586 
3587 
3588 
3589 



3590 
3591 
3592 
3593 
3594 
3595 
3596 



021162 
021162 
021166 
021170 
021172 
021174 
021176 
021176 
021200 
021204 
021210 
021212 
021214 
021220 
021222 
021222 
021224 
021226 
021230 
021232 
021234 
021236 
021240 
021242 
021242 
021242 
021244 
021250 
021. '52 
021.:*i4 
0212S4 
021260 
021264 
021266 
021270 
021274 
021276 
021300 
021346 
021353 



010002 
010203 
005713 
001412 

012346 
012746 
012746 
010600 
104417 
062706 
000764 

104443 
000406 
021402 
000O42 
021353 
177777 
000000 
177777 



103352 
0137C0 
020001 
101411 

012746 
012746 

010600 

104417 

062 706 

0007 35 

000207 

045 

045 

105 



.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 

ROUTINE TO ISSUE A MENU AND GET 
THE OPERATOR'S RESPONSE. 



INPUTS: 

RO 
Rl 

OUTPUTS: 

RO 



GETSEL 



1* 
2$ 



021346 
000002 



000006 



3$: 



10001$: 



021402 



021300 
000001 



000004 



116 
116 
156 



045 
045 
164 



021402 OOOOQO 



51 : 

MENERR 
SELASC 
MENASC 

MENRES; 



ADDRESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER OF THE OPERATOR'S SELECTION 



SAVREG 
MOV 
MOV 
TST 
BEQ 
PRINTF 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 
BR 

GMANID 
TRAP 
BR 

.WORD 
.WORD 
WORD 
.WORD 
.WORD 
.WORD 



R0.R2 

R2»R3 

(R3) 

3$ 

0SELASCCR3)* 

(R3)*,-(SP) 

*selasc,-(sp:) 

*2,~CSP) 

SP.RO 

CtPNTF 

06, SP 

2$ 

MENASC , MENRES , D , - 1 , , - 1 , NO 

CIGMAN 

10001$ 

MENRES 

TICODE 

MENASC 

-1 

TILOLIM 

TIHILIM 



iSAVH GENERAL REGISTERS 

i SAVE THE MENU ADDRESS 

j START OF MENU STRING 

j END OF ASCII ? 

{BRANCH IF ALL LINES DISPLAYED 

I DISPLAY THE MENU 



BNCOMPLETE 



1$ 



BCC II 

MOV MENRES ( R0 

CMP R0.R1 

BLOS 5t 

PRINTF OtlfNERR 

MOV MENERR, -(SP) 

MOV Ol.-CSP) 

MOV SP.RO 

TRAP C1PN7F 

ADD 04, SP 

BR 1$ 

RTS PC 

.ASCIZ *N*A *** Menu 

.ASCIZ '#N*T' 

.ASCIZ 'Enter Menu Selection: 

.EVEN 

.WORD 



j RETRY IF ERROR 



j GET THE OPERATOR'S 
{COMPARE TO MAXIMUM 
{BRANCH if OK 
{DISPLAY ERROR MESSAGE 



REPLY 
ALLOWED 



{RETRY 

{RETURN TO CALLER 
Selection Too Large 



+++ 



B9 
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CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
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SEQ 105 



35*6 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
360« 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 

3623 

3624 



3625 
3626 

362 7 
3626 
3629 



021404 
021404 
021410 
021410 
021412 
021412 
021414 
021414 
021420 
021424 
021426 
021430 
021434 
021436 

021440 



.SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 

* 

ROUTINE TO TEST TOR MANUAL INTERVENTION LEGALITY, 
INPUT j 

NONE, 
OUTPUT? 



CARRY 
X 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



SIDE EFFECTS i 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 



104450 
103411 

012746 021440 

012746 000001 

010600 

1044 W 

062706 000004 

000241 

000207 



045 



U6 



045 



CHKMAN 


It 

SAVREG 

MANUAL 






TRAP 


CIMANI 




BCOMPLETE 11 




BCS 


u 




PRINTF 


tNOMAN 




MOV 


♦NOMAN.-(SP) 




MOV 


•l.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADO 


#4,SP 




CLC 




11: 


RTS 


PC 


NOMANt 


.ASCI* 
»tvtn 


«#N#A *** Ma 



ISAVE THE REGISTERS 

I SEE IF MANUAL INTERVENTION OK 

I BRANCH IF ALLOWED 

» PRINT THE WARNING MESSAGE 



iCLEAR CARRY FOR ERROR 
I RE TURN 



T«t Aborted ***' 
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SEQ 106 



3631 










•50TTL 


ENVIRN - SETUP 


FREE DIAGNOSTIC SPACE 


3632 








1 








3633 








I SUBROUTINE TO 


SET-UP VARIOUS 


ENVIRONMENTAL PARAMETERS. 


3634 








j 








3635 021534 








ENVIRNi 


MEMORY 


RO 




021534 


104431 








TRAP 


CIMEM 




3636 021536 


010037 


003072 






MOV 


RO.FREE 


1 GET 1ST FREE ADDRESS... 


3637 021542 


062737 


000002 


003072 




AOO 


♦2, TREE 




3658 021550 


011037 


003074 






MOV 


(RO).FRESIZ 


I...AND WORD COUNT, 


3639 021554 


162737 


000004 


003074 




sue 


♦4.FRESIZ 




3640 021562 


013702 


002012 






MOV 


HUNIT.R2 


1 GET NUMBER OF UNITS 


3641 021566 


162737 


000007 


003074 


10$ t 


SUB 


♦7.FRESIZ 


l TAKE AWAY 7 WORDS PER UNI 


3642 021574 


005302 








DEC 


R2 




3643 02i576 


0013/3 








BNF 


lot 




36*4 021600 


013700 


003072 






MOV 


FREE.RO 


iGET FIRST FREE ADDRESS 


3645 021604 


063700 


003074 






AOD 


FRESIZ.RO 


iPOINT TO LAST FREE ADDRESS 


3646 021610 


162700 


0OOO02 






sue 


#2>R0 


t BACKUP 1 WORD 


3647 021614 


010037 


003076 






MOV 


RO.FREEHI 


I STORE LAST FREE ADDRESS 


3646 021620 


000207 








RTS 


PC 


jRETURN 


3649 
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SEQ 107 



3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3694 
3695 
3701 



021622 
021622 
021626 
021632 
021640 
021642 
021646 
021654 
021660 
021662 
021670 
021676 
021702 
021704 
021710 
021716 
021720 
021724 
021730 
021732 
021736 

021740 

021744 

021746 
021752 



005037 
005037 
023727 
101444 
013700 
012737 
005737 
000240 
013737 
042737 
010037 
005000 
012701 
012761 
010021 
062700 
020027 
001367 
012741 
000405 

012716 
000002 

010037 

000207 



003100 
003102 
002120 

000004 
021740 

177572 

002120 
000177 
000004 

172340 
077406 

000200 
002000 

177600 



021746 
000004 



.SBTTL KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
ROUTINE TO INIT KT-11 

KTINIT} 



001577 
000004 



003100 
003100 



177740 





CLR 


KTFLG i 


INIT >28K MEMORY* FLAG 




CLR 


KTENA8LE 


INIT TEST >28K FLAG 




CMP 


LIHIME.^1577 


GOT ENOUGH MEMORY (>28K)^ 




BLOS 


9$ , 


NO, 




MOV 


©♦ERRVEC.RO i 


SAVE OLD ERR VEC PTR. 




MOV 


♦2$,&#ERRVEC 


SET ERR VEC PTR, 




TST 


©♦SRO i 


GOT KT11? 




NOP 




(TRAP IF NO). 




MOV 


LIHIME, KTFLG 


YES, SET KT FLAG, 




BIC 


♦177, KTFLG 






MOV 


R0,B#€RRVEC 


RESTORE OLD ERR VEC PTR, 




CLR 


RO 


RO • AR DATA. 




MOV 


♦KIPAR0.R1 


Rl - KI REGS PTR. 


11: 


MOV 


♦77406, -40CR1) 


SET DESCRIPTOR REG, 




MOV 


RO.CRD* 


SET KIPAR REG. 




ADO 


♦2O0.R0 


BUMP AR DATA BY "4K". 




CMP 


R0,^2000 


AT "I/O"? 




BNE 


11 


NO. 




MOV 


♦ 177600, -CRD 


YES. SET KTPAR7 FOR I/O, 




BR 


9$ 




2$t 


MOV 


♦61, (SP) 


SET UP RETURN 




RTI 




RTI TO NEXT LOCATION 


6$: 


MOV 


RO.SOERRVEC 


RESTORE OLD ERR VEC PTR, 


9t; 


RTS 


PC 





E9 

DDnTPrTTftM 2 ?ABi R c EN0 FUNC ° 2 MACR0 t>11200 20-APR-84 08:12 PAGE 81 SEQ 108 

3703 .SBTTL PROTECTION TABLE 

3704 021754 BGNPROT 
021754 UPROTti 

3705 021754 177777 177777 177777 ,WORD -X, -1, -l t -1 t NO DEVICE PROTECTION REQUIRED, 

3706 021764 ENDPRQT 
3707 



CZTKFA TK-25 FRT END FUNC 02 
INITIALIZE SECTION 

3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 

3723 
3724 
3725 
3726 
3727 
3728 
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SEQ 109 



3729 

3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 



3741 

3742 

3743 

3744 
3745 

3746 

3747 
3748 

3749 



021764 
021764 
021764 
021764 
021772 
021776 
022002 
022006 
022006 
022012 
022014 
022014 
022016 
022024 
022026 
022032 
022034 
022040 
022042 
022046 
022050 
022056 
022060 
022060 
022062 
022064 
022064 
022070 
022072 
022072 
022074 
022074 
022100 
022102 
022102 
022104 
022104 
022110 
022112 
022112 
022114 
022114 
022114 
022116 



012737 
005037 
005037 
005037 

012700 
104447 

103023 
023737 
103064 
005737 
100466 
013701 
006301 
005761 
001512 
032761 
001054 

104432 
0OO412 

012700 
104447 

103046 

012700 
104447 

103404 

012700 
104447 

103025 



104433 
005037 



.SBTTL INITIALIZE SECTION 

I ♦* 

I THE INITIALIZE SECTION CONTAINS THE COOING THAT IS PERFORMED 

,AT THE BEGINNING OF EACH PASS. 



"START" OR "RESTART" 
"CONTINUE", NOTHING 



005762 
003106 
003102 
002246 

000036 



002146 



I IF 
IIP 

; 

i — 

i ♦ 

j INSERT TEMPORARY JUMP TO ODT 

i - 

L UNIT 5 
40$: 



, SET QUICK -PASS FLAG AND BUS-INIT, 
IS REQUIRED. 



BGNINIT 



002150 
003060 
002150 
003130 
010000 



002012 



003130 



000035 



000040 



000037 



1* 



2*1 



MOV 

CLR 

CLR 

CLR 

READEF 

MOV 

TRAP 



*EPRT1,EPRTSW 

SIFLAG 

KTENABLE 

RAMSIZ 

♦EF. CONTINUE 

♦eF.C0NTINU6,R0 

C$REFG 



I SET UP PRIMARY MESSAGE FOR REPLACEMENT 

iCLEAR "SOFT INIT" FLAG 

I CLEAR TEST ABOVE 28K FLAG 

I CLEAR RAM SIZE FOR RAMERR ROUTINE 



BNCOMPLETE 1$ 

BCC 1* 

CMP UNITN,L$UNIT 

BMIS 41 

TST DUFLG 

BMI NXTU 

MOV UNITN.R1 

ASL Rl 

TST ERTABLCR1) 

BEQ SETU 

BIT #6lTl4 t ERTABL(Rl 

BNE NXTU 

EXIT INIT 

TRAP CI EXIT 

.WORD L10030-. 

READEF #€F.NEW 

MOV #EF.NEW»R0 

TRAP CIREFG 

BNCOMPLETE NXTU 

BCC NXTU 

READEF #EF. ST ART 

MOV #€F. START, RO 

TRAP C$REFG 

BCOMPLETE 2$ 

BCS 21 

READEF ♦EF. RESTART 

MOV ♦EF.RESTART.RO 

TRAP CIREFG 

BNCOMPLETE 31$ 



I UNIT IN RANGE? 
iBR IF NO. 
I DROPPED UNIT? 
j BR IF YES 



) jDROPPED? 

I DO NOTHING IF "CONTINUE". 



tTAKE NEXT UNIT IF NOT NEW PASS. 



002162 



BCC 

BRESET 

TRAP 
CLR 



31$ 



C$RESET 

TSTCNT 



j 1ST PASS, BUS-INIT... 
iBUS RESET, 

j NUMBER OF TESTS RUN IN PASS 



G9 



CZTKFA 1 
INITIAL! 


fK-25 FR 


T END FUNC *2 


MACRO M1200 20 


-APR -84 


08:12 PAGE 82- 


[ZE SECT 


ION 










3750 


022122 


005037 


002170 




CLR 


FATFLG 


3751 


022126 


005037 


003332 


19$: 


CLR 


SKIPT 


3752 


022132 






20$: 






3753 


022132 


012737 


177777 


002152 


MOV 


♦-1.QVP 


3754 


022140 


004737 


021534 




JSR 


PC.ENVIRN 


3755 


022144 


004737 


021622 




JSR 


PC.KTINIT 


3756 


022150 


012700 


003130 




KOV 


OERTABL.RO 


3757 


022154 


005020 




30$: 


CLR 


CPO)» 


3758 


022156 


020027 


003330 




CMP 


RO,*ERTABE 


3759 


022162 


103774 






BLO 


30$ 


3760 


022164 


000404 






BR 


4* 


3761 


022166 


005037 


002152 


31$: 


CLR 


W 


3762 


022172 


000137 


022242 




JMP 


PASRPT 


3763 














3764 


022176 






4$: 






3765 


022176 


012737 


177777 


002150 NEWPAS; 


MOV 


♦-1.UNITN 


3766 


022204 


005037 


002166 




CLR 


DEVCNT 


3767 


022210 






NXTU: 


BREAK 






022210 


104422 






TRAP 


C$BRK 


3768 


022212 


005237 


002150 




INC 


UNITN 


3769 


022216 


023737 


002150 


002012 


CMP 


UNITN,L$UNIT 


3770 


022224 


103423 






BLO 


SETU 


3771 


022226 


012737 


177777 


003060 


MOV 


♦-1.DUFLG 


3772 


022234 


000401 






BR 


11$ 


3773 


022236 








DOCLN 






022236 


104444 






TRAP 


C$OCLN 


3774 


022240 


000240 




11$: 


NOP 




3775 


022242 






PASRPT: 






3776 


022242 


023727 


002012 


000001 


CMP 


L$UNIT,*1 


3777 


022250 


101752 






BLOS 


NEWPAS 


3778 


022252 


005737 


002166 




TST 


DEVCNT 


3779 


022256 


001747 






BEQ 


NEWPAS 


3780 


022260 








RFLAGS 


RO 




022260 


104421 






TRAP 


C$RFLA 


3781 


022262 


032700 


000100 




BIT 


♦ISR.RO 


3782 


022266 


001343 






BNE 


NEWPAS 


3783 














3784 


022270 








DORPT 






022270 


104424 






TRAP 


C$DRPT 


3785 


022272 


000741 






BR 


NEWPAS 


3786 


022274 






10$: 






3787 














3788 


022274 






SETU: 


GPHARD 


UNITN.RO 




022274 


013700 


002150 




MOV 


UNITN, RO 




022300 


104442 






TRAP 


C$GPHRD 


37B9 


022302 








BNCOMPLETE NXTU 




022302 


103342 






BCC 


NXTU 


3790 


022304 


005037 


003060 




CLR 


DUFLG 


3791 


022310 


005237 


002166 




INC 


DEVCNT 


3792 


022314 


012001 






MOV 


(R0)*.R1 


3793 


022316 


010137 


002154 




MOV 


Rl.CSRAODR 


3794 














3795 


022322 


012001 






MOV 


(R0)»,R1 


3796 


022324 


011002 






MOV 


(R0),R2 


3797 


022326 


01023? 


002160 




MOV 


R2.IPRI 


3798 


022332 


010137 


002156 




MOV 


Rl.IVEC 


3799 


022336 


012721 


0X7066 




MOV 


*INTR,CR1)> 



SEQ 110 



t RESET FLAG TO ZERO "FATAL ERRORS" 
I CLEAR THE SUBTEST "SKIPPER" 

I... QUICK VERIFY . .. 

i SET ENVIRONMENT. 

I INITIALIZE KT MEMORY MANAGEMENT 

I CLEAR THE ERROR TABLE 



i GO REPORT THE STATUS 



iINIT UNIT nwber... 

I CLEAR COUNT OF DEVICES RUNNING 



i... AND SET NEXT UNIT NUMBFr . 



{ABORT, NO MORE UNITS. 



jHOW MANY UNITS SELECTED? 
i BR IF ONLY 1 
I ARE ANY STILL RUNNING? 
I BR IF NO 



t SHOULD WE PRINT STATISTICS 
;BR IF NO 



jGET UNIT N P-TABLE POINTER. 

iBR IF UNIT NO* AVAILABLE. 

I CLEAR "DROPPED" FLAG. 

jGET 1ST REGISTER ADDRESS. 

jADDRESS Of REGISTERS OF UNIT UNDER TEST 

iGET VECTOR ADDRESS. 

iGET INTERRUPT PRIORITY 

»SET INTERRUPT PRIORITY. 

j SET INTERRUPT VECTOR POINTER. %% 

l. ..VECTOR... 



C/TKFA TK-25 FRT END FUNC *2 
INITIALIZE SECTION 



3800 
5801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 

3817 
3818 
3819 



3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3329 
3830 
3831 
3832 
3833 



3834 



3835 
3836 
3637 



022342 
022344 



022344 
022350 
022352 
022360 
022364 
022372 
022374 
022374 
022376 
022402 
022404 
022404 
022410 
022414 
022420 
022422 
022424 
022430 
022430 
022434 
022440 
022442 
022446 
022452 
022454 
022460 
022466 



022466 
022466 
0224 12 
0224 74 
022474 
022474 

0224 76 



010221 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
0106O0 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



104411 
045 



002150 

100000 
005232 
002012 



001000 



002150 
022476 
000002 



000006 

003062 
002154 

000000 
017276 

003062 
177777 



012700 000000 
104441 
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SEQ 111 



MOV 



R2.CR1)* 



». . .AND PRIORITY. 



TST 
BEQ 



QVP 
5$ 



1 1ST PASS ?? 

I NO, SKIP THE PASS 1 STUFF 



1$: 

i 
I 

{1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID. AND 
tTHAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



003130 
000001 



003060 



HOV 

ASL 

BIS 

CLR 

CMP 

BLOS 

RFLAGS 

TRAP 

BIT 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 
10$: 

CLR 

MOV 

MOV 

ADD 

JSR 

BCC 

MOV 

MOV 
2$: 

{FINALLY, 

5$: SETPRI 

MOV 
TRAP 
ENOINIT 
L1OO30: 

TRAP 



UNITN.R1 

Rl 

♦BIT15 f ERTABL(Rl) 



EXTA 

LtUNIT.n 

10$ 

RO 

C$RFLA 

♦PNT.RO 

10$ 

♦PUNIT.UNITN 

UNITN.-CSP) 

♦PUNIT.-CSP) 

♦2,-(SP) 

SP.RO 

C$PNTF 

#6,SP 

NOOEV 

CSRAD0R,R1 
R1.R2 
*TSSR,R2 

PCXNXM 

2$ 

Rl. NOOEV 

♦-1.DUFLG 



j SAY DEVICE RUNNING 



, CLEAR ERROR EXTENSION FLAG, 

I ARE WE TESTING MULTIPLE UNITS? 

iBR IF NO. 

I YES -- GET OPERATOR FLAGS. 

j SHOULD WE PRINT UNIT 4? 

I BR IF NOT, 

; PRINT THE UNIT Q 



j ADDRESS OF FIRST REGISTER 

, START OF REGISTERS 

» ADDRESS OF TSSR REGISTER 

»TEST BOTH CONTROLLER REGISTERS, 

l . . .AND BR IF ALL OK. 

I FLAG DEVICE AS NON-EXISTENT 

,DROP THIS UNIT, 



SET CPU PRIORITY AND WE'RE DONE, 



*PRIOO 

♦PRIOO.RO 

C$SPRI 



C$INIT 



I ENABLE INTERRUPTS. 



116 



045 PUNIT: 



.ASCIZ 
.EVEN 



/*N*N*A***** TESTING UNIT *D2*A ****+/ 



CZTKFA TK-25 FRT ENO FUNC *2 
ADD ANO DROP UNITS SECTIONS 



3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
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SEQ 112 



3847 
3848 
3849 
3850 
3851 



3852 



3853 
3854 
3855 
3856 



3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 

3869 
3870 
3871 
3872 
3873 
3874 



022544 
022544 
022544 
022546 
022550 
022556 
022564 
022564 
022566 
022572 
022576 
022600 
022602 
022606 
022606 
022610 
022612 



022640 
022640 
022640 



3875 



022642 
022642 
022642 
022650 
022652 
022654 
022662 
022670 
022670 
022672 
022676 
022702 
022704 
022706 
022712 
022712 
022714 



010OO1 
006301 
052761 
042761 

010O46 
012746 
012746 
010600 
104417 
062706 

000167 

000026 

045 



104452 



012737 
010OO1 
006301 
052761 
000240 

010046 
012746 
012746 
010600 
104417 
062706 

000167 
000030 



100000 
040000 



022612 
000002 



000006 



116 



003130 
003130 



177777 003060 



140000 
000240 



022716 
000002 



000006 



003130 
000240 



.SBTTL ADD AND DROP UNITS SECTIONS 

J ** 

I THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

; TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

i OR CB) REINSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 

i -- 



L*AU: 



045 1$ 



L10031: 



BGNAU 

MOV 

ASL 

BIS 

BIC 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

EXIT 

,WORD 

.WORD 

.ASCIZ 

.EVEN 

ENOAU 

TRAP 



R0.R1 , GET UNIT TO BE ADDED (RO) 

Rl j MAKE IT A WORD INOEX 

#100000,ERTABL(R1) | SET THE "ACTIVE" BIT 

040000 .ERTABLCR1) i CLEAR THE "DROPPED" BIT 

01I.R0 

RO.-CSP) 

#l$ f -CSP) 

02,-CSP) 

SP.RO 

CIPNTF 

06, SP 

AU 

JUMP 

L10031-2-. 

/#N*A WIT *D*A ADDED/ 



I UNUSED 



CIAU 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST, 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
COMMANO, OTHERWISE REMAIN INACTIVE, THE "DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS, ANO THE P- TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



LIDU: 



BGNOU 



MOV 


♦-1.DUFLG 


MOV 


R0.R1 


ASL 


Rl 


BIS 


0140000.ERTABLCR1) 


240,240 


.240 


PRINTF 


01$, RO 


MOV 


RO,-(SP) 


MOV 


01$. -(SP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADD 


06, SP 


EXIT 


DU 


.WORD 


JUMP 


.WORD 


L10032-2-. 



j SAY DROPPED 
I ????????? 



CZTKFA TK-25 FRT END TUNC *2 
ADD ANO DROP UNITS SECTIONS 



3876 


022716 


045 


116 


3877 








3878 


022746 
022746 








022746 


104453 




3879 








3880 








3881 








3882 


022750 
022750 






3883 


022750 


012703 


0OC550 


3884 


022754 


004737 


017120 


3885 


022760 


103420 




3886 


022762 








022762 


012727 


000372 




022766 


000000 






022770 


013727 


002116 




022774 


000000 






022776 


005367 


177772 




023002 


001375 






023004 


005367 


177756 




023010 


001367 




3887 


023012 


005303 




3888 


023014 


001357 




3889 


023016 


004737 


020154 


3890 


023022 






3891 


023022 
023022 








023022 


104461 
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SEQ 113 



045 1$: 



L 10032: 



,ASCIZ 

.EVEN 

ENDDU 



/*N*A UNIT *D*A DROPPED/ 



TRAP CIDU 
j AUTQ-DRC° CODE SECTION, 
BGNAU1 



L$AUTO: j 
10$: 



20$: 
L10033: 



MOV 

JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

JSR 

ENDAUTO 
TRAP 



*360.,R3 

PC.WAITF 

20$ 

250. 

#250., (PC)* 



LIDLY.CPC)* 



-6(PC) 

.-4 

-22CPC) 

.-20 

R3 

10$ 

PC.CKDROP 



C$AUT0 



j ENOUGH TIME FOR 2400' REEL TO REWIND 
jWAIT FOR SSR TO SET 
tLEAVE WHEN SSR IS SET 
I WAIT FOR ,25 SECONDS 



j BUMP COUNTER DOWN 

{KEEP GOING 

;TRY AND DROP UNIT 

; UNUSED. 



I<9 



CZTKKA TK-25 FRT END FUNC *2 MACRO M1200 

CLEAN-UP AND REPORT CODING SECTIONS 



3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 

3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 



3910 
3911 
3912 
3913 
3914 

3915 



3916 
3917 
3913 
3919 
3920 
3921 
3922 
3923 
392', 
3925 
3926 
3927 



3928 

3929 
3930 
3931 



023024 
023024 
023024 
023030 



023032 
023036 
023044 
023050 
023050 
023050 
023050 



023052 
023052 
023052 
023052 
023056 
023062 
023064 
023066 
023072 
023074 
023076 
023100 
023104 
023106 
023110 
023112 
023114 
023120 
023122 
023126 
023126 
023130 
023132 
023136 
023142 
023144 
023146 
023152 
023154 
023160 
023162 
023162 
023164 



104412 



012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
005003 
011402 
001467 
100066 
032702 
001015 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010346 
012746 
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,SBTTL CLEAN-UP AND REPORT CODING SECTIONS 



SEQ 114 



»♦♦ 



005737 003060 
100407 



013705 002154 
012765 000000 
004737 017120 



5 THE CLEANUP COOING SECTION CONTAINS THE COOING THAT IS 

; EXECUTED AT THE fcND OF EACH PASS (OR SUB-PASS). 

{ USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE, 

BGNCLN 
LJCLEAN:: 

TST DUFLG 
BMI 1$ 



000000 



023314 
000001 



000004 
003130 

040000 
170000 



023351 
000003 



000010 
160000 

023421 



MOV 
MOV 
JSR 

ENDCLN 

TRAP 



CSRADDR.R5 
♦0, TSSRCR5) 
PC.WAITF 



{"DROPPED" FLAG IS SET ON... 
I...ANO GROSS CONTROLLER FAULT... 
j... DON'T TPY TO XCT CLEANUP CODE. 

I ADDRESS OF TSV REGISTERS ON UNIBUS 
i DO SOFT INIT 



lit 
2*: 
L10034i 

I** 

, THE REPORT COOING SECTION CONTAINS ThL 

5 "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 



CtCLEAN 



LIRPT:: 



BGNRPT 



1$: 



2$: 



PRINTS 


♦oevsum 




MOV 


*DEVSUM,-CSP) 




MOV 


#1,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTS 




ADD 


*4,SP 




MOV 


R2.-CSP) 




MOV 


R3.-CSP) 




MOV 


R4.-CSP) 




MOV 


*ERTABL,R4 


I GET START OF ERROR TAB 


CLR 


R3 


{ CLEAR UNIT NUMBER 


MUV 


CR4).R2 


i GET ERROR TABLE ENTRY 


BEQ 


4$ 


{ ZERO IF UNIT NOT RUN 


BPL 


4$ 




BIT 


♦6IT14.R2 


1 WAS UNIT DROPPED? 


BNE 


2% 


{ BR IF YES 


BIC 


*tC7777,R2 


j GET ERROR COUNT FIELD 


PRINTS 


«OEVONL,R3,R2 


I PRINT 


MOV 


R2.-CSP) 




MOV 


R3,-(SP) 




MOV 


OOEVONL.-(SP) 




MOV 


*3 # -(SP) 




MOV 


SP.RO 




TRAP 


C1PNTS 




ADO 


010, SP 




BR 


4$ 




CMP 


R2, 0160000 


I WAS UNIT NON-EXISTENT? 


BNE 


3$ 


» BR IF NO 


PRINTS 


40EVNXR.R3 




MOV 


R3, -CSP) 




MOV 


ODEVNXR.-CSP) 





S TEST IT 



L9 



CZTKFA TK-25 FRT END FUNC 42 MACRO M1200 
CLEAN-UP AND REPORT CODING SECTIONS 
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SEQ 115 



3932 
3933 
3934 
3935 



3936 
3937 
3938 



3939 

3940 
3941 
3942 
3943 
3944 
3945 
3946 



394 7 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3957 
3958 
3959 
3966 
397? 
3980 



023170 
023174 
023176 
023200 
023204 
023206 
023212 
023214 
023214 
023216 
023222 
023226 
023230 
023232 
023236 
023240 
023244 
023244 
023246 
023250 
023254 
023260 
023262 
023264 
023270 
023274 
023276 
023302 
023304 
023306 
023310 
023312 
023312 
023512 



023314 
023351 
023421 
023503 
023564 



012746 
010600 
104416 
062706 
000431 
020227 
001012 

010346 
012746 
012746 
010600 
104416 
062706 
000414 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 



045 
045 
045 
045 
045 



000002 

000006 
160001 



023503 
000002 



000006 
170000 



023564 
000003 



000010 
000002 

003330 



3* 



30*: 



4$: 



116 
101 
101 
101 
101 



L10035: 



045 DEVSUM 

040 DEVONL 

040 DEVNXU 

040 DEVNRD 

040 PEVDRQ 



MOV 

MOV 

TRAP 

ADD 

BR 

CMP 

BNE 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

ADD 

INC 

CMP 

BLO 

MOV 

MOV 

MOV 

ENORPT 

TRAP 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.EVEN 



42, -(SP) 

SP.RO 

C*PNTS 

46, SP 

4$ 

R2, 4160001 

301 

40EVNRD.R3 

R3, -(SP) 

40EVNRD.-CSP) 

#2, -CSP) 

SP.RO 

CIPNTS 

46, SP 

4$ 

*tC7777,R2 

4OEVDR0,R3,R2 

R2.-CSP) 

R3,-CSP) 

40EVDRO,-(SP) 

43, -CSP) 

SP.RO 

C*PNTS 

410, SP 

42, R4 

R3 

R4,4€RTABE 

1* 

CSP)*,R4 

CSP)*,R3 

(SP)*.R2 



CIRPT 



I WAS UNIT NOT READY AT STARTUP? 
I BR IF NO. 



t UNUSED. 



/KNrfADEVICE STATUS SUMMARY :#N/ 

/*A UNIT *D3*A ONLINE, ERRORS - *D*N/ 

/*A UNIT *03*A DROPPED. NON-EXISTENT REGISTERS/ 

/#A UNIT #D3*A DROPPED, NOT READY AT STARTUP*N/ 

/*A UNIT *D3*A DROPPED. ERRORS * *D*N/ 



CZTKFA TK-2S FRT FND FUNC 02 
TEST 1: INITIALIZE 02 TEST 



M9 
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SEQ 116 



3983 
3984 

3985 
3986 
3987 
3988 
3989 
3990 

3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 



4024 
4025 
4026 
4030 
4031 



4032 
4053 



023634 
023634 
023634 
023640 
023644 



023652 
023656 
023662 
023666 
023674 
023674 
023700 



023704 
023712 
023716 
023720 
023720 
023724 
023726 
023732 
023734 
023740 
023742 
023746 
023750 
023754 
023756 
023762 
023764 
023764 
023 766 
023770 
023772 
023774 
023774 



005037 002170 
005037 003100 
012737 005762 



004737 
012700 
004 737 
012737 

004 737 
004737 



017054 
024516 
017410 
000002 

024540 
024630 



012737 
004 737 
103426 

012/27 
000000 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000145 
003550 
011666 



012704 024150 



176750 
016644 



000250 
002116 
177772 
177756 
024276 
020102 



.SBTTL. TEST 1: INITIALIZE 02 TEST 

j THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
j CONTROLLER n ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 



BGNTST 



002146 







Tl:: 


CLR 


FATFLG 


{CLEAR FATAL ERROR FLAG 


CLR 


KTFLG 


{HOLD OFF KT11 


MOV 


0EPRT1.EPRTSW 


j SET UP PRIMARY ERROR M 



MESSAGE 



002164 



024276 



j TEST 1 



I - 

;DISA8LE INTERRUPTS 

j ASCII MESSAGE TO IDENTIFY TEST 

{DO INITIAL TEST SETUP 

> PERFORM 2 ITERATIONS 

j SET COMMAND PACKET 

j SET UP OTHER COMMAND PACKET 

j *************************+******+*************+*+***************** 

, ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROP 

i 

* ***** *H< *******•* + ***********•*****'♦'*♦* **************************** 

11$: 



JSR 


PC.DSBINT 


MOV 


0TST21ID.RO 


JSR 


PC.TSTSETUP 


MOV 


02.LOOPCNT 


T21L00P: 




JSR 


PC.T21REST 


JSR 


PC.T21RT2 



MOV 065000. .T21DLY 

JSR PC.SOFINIT 

BCS 20* 

DELAY 250 



i SET DELAY ROUTINE 

j DO INITIALIZE ON CONTROLLER 

sBR IF INIT WAS OK 

j DELAY FOR A REWIND TO FINISH 



MOV 


0250, (PC)* 


.WORD 





MOV 


LfDLY.CPO* 


.WORD 





DEC 


-6CPC) 


8NE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 



DEC 


T21DLY 


BNE 


111 


JSR 


PCFATCHK 


MOV 


R0,R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$: 



MOV 



0T21PACKET.R4 



l BUMP COUNTER DOWN 

; 6R, IF MORE TIME TO GO 

i INC ANO CHECK FOR MOPE THAN 25 ERRORS 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP CiERDF 
.WORD 101 
.WORD SFIERR 
.WORD SKIMSG 

{SUBROUTINE NEEDS PACKET ADDRESS 



CZTKFA TK-25 FRT END FUNC *2 
TEST 1: INITIALIZE 42 TEST 



4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
404 7 
4048 
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SEQ 117 



4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4066 



4067 

4068 
4069 
4C73 



4074 
4075 
40 76 
407 7 
4078 



024000 
024004 
024006 
024012 
024014 
024014 
024016 
024020 
024022 
024024 
024024 
024032 
024036 
024042 
024044 
024050 
024052 
024056 
024062 
024066 
024070 
024072 
024074 
024100 
024100 
024102 
024104 
024106 
024110 
024110 
024112 
024114 
024114 
024114 
024116 
024120 
024122 
024124 
024130 
024134 
024156 
024142 
024142 
024144 



004737 
103407 
00473? 
010001 

104456 
000146 
004754 
011666 

012765 
004737 
016501 
005002 
032701 
001402 
052702 
052702 
032701 
001012 
020102 
001406 
004737 

104456 
00014 7 
024375 
016344 

104406 
000406 



104455 
000150 
03*475 
016544 
004 737 
004737 
103002 
000137 

104432 
000526 



;****************************************************** ** ********** 

1 WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

I 

- ****************************************************************** 



010332 
020102 



JSR PC, WRTCHR 

BCS 23$ 

JSR PC.FATCHK 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SF IMSG 



OC WO 
017120 
000000 

000100 

000100 
002200 
000100 



020102 



OOOOOO 



23$ 





MOV 


*0,TSSRCR5) 




JSR 


PC.WAITF 




MOV 


TSSRi,R5),Rl 




CLR 


R2 




BIT 


00FL.R1 




BF.Q 


24$ 




BIS 


*0FL,R2 


24$: 


BIS 


*SSR!NeA,R2 




BIT 


OOFL.Rl 




BNE 


38$ 


35$: 


CMP 


R1.R2 




BEQ 


37$ 




JSR 


PC.FATCHK 



ERRHRD ERRNO , T21AM3 , EXPREC 



37$ 
38$ 



CKLOOP 

BR 

ERRDF 



40$ 

ERRNO, T210FL, EXPREC 



020154 
017356 

023674 





JSR 


PC,CKDR0P 


40$: 


JSR 


PC.TSTLOQP 




BCC 


6 5$ 




JMP 


T21L00P 


63$: 


EXIT 


T5T 



jISSUE WRITE CHARACTERISTICS 

j BR, IF COMMANO ISSUCD OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS OF TSSR 

I WRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 
.WORD 102 
.WORD WRTMSG 
.WORD SFIMSG 

{ISSUE A SOFT INITIALIZE 

j WAIT FOR JUST THE SSR BIT TO SET 

i READ THE TSSR BACK 

j SET UP EXPECTED CONTENTS IN R2 

jCHECK FOR OFF LINE SET CNOT ERROR) 

jBR, IF OFL IS NOT SET 

j IT WAS SET SO SET IN EXPECTED 

;R2 HAS EXPECTED CONTENTS 

tIS OFF LINE BIT SET 

$BR, IF DRIVE IS OFF LINE 

{EXPECTED CR2) - RECEIVED CR1) 

l BR, IF THEY ARE EQUAL COK) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j "ERROR TRYING TO INIT AFTER URITE MISC. 

TRAP C$ERHRD 
.WORD 103 
.WORD T21AM3 
.WORD EXPREC 

j LOOP IF SELECTED 

TRAP C$CLP1 

i SKIP OVER OFF-LINE STUFF 

{DRIVE IS OFF LINE 

TRAP C*ERDF 
.WORD 104 
.WORD T210FL 
.WORJ EXPREC 

jTPY AND DROP UNIT 

iDO WE NEED TO ITERAIL TEST 

j BR. IF NO LOOP REQUIRED 

{EXECUTE AGAIN 

j ALL DONE THIS TEST 

TRAP CJEXIT 
.WORD L10036-. 



CZTKFA TK-25 FRT ENO FUNC #2 
TEST li INITIALIZE #2 TEST 
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4080 
4061 
4082 
4054 
4066 
4067 
4086 
4069 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4096 
4099 
4101 
4103 
4104 
4105 
4106 
4107 
4106 
4109 
4110 
411X 
4112 
4113 
4114 
4115 
4116 
4117 

4116 



024146 
024150 
024150 
024152 
024154 
024156 
024160 
024160 
024162 
024164 
024166 
024170 



024252 
024260 
024260 
024262 
<V4;J64 
024*66 



024270 
024270 
024271 

024272 
0242 74 
024376 



100)04 
024160 
000000 
000012 

024 1 70 
000000 
000024 

000000 



100206 
024270 
000000 
000006 



000 

000 

000000 

000000 

000000 



{local storage tor this test 

I - 



.BLKB 


10-<.-T 


TSlPACKETi 




.WORD 


100004 


.WORD 


T210ATA 


♦ WORD 





.WORD 


10. 


T2lOATAj 




.WORD 


T21BFR 


.WORD 





.WORD 


20. 


.WORD 





T21BFRt .BL'<U 


25. 



i WRITE SUBSYSTEM MEMORY COMMAND PACKET 



T21PK2: 



.BLKB 10-<.-TUV2A67> 





.WORD 


100206 




■ WORD 


T21BF2 




.WORO 







.WORD 


6. 




.EVEN 




T21BF2r 






T21BS0: 


.BYTE 





T21BS1: 


.BYTE 





T21S2: 


.WORD 





T21S3; 


.WORO 





mOLY; 


.WORD 






SEQ 118 



iCOWANO PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMAND, WITH, 

I ADDRESS OF CHARACTERISTICS BLOCK 

iSTARTING VALUE OF BLOCK SIZE 
iCHAHACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

I LENGTH OT MESSAGE BUFFER 

jMESSAGE BUFFER 



ACK 



jWRITE SUB SYS MEM 
I ADDRESS OF SELECT 



COMMAND. IE 
BLOCK DATA 



ANO ACK 



I SIZE OF DATA PACKET 



jBSELO AREA -- 
iBSELl AREA 
jSEL 2 AREA 

I DATA ARF.A 

I DELAY COUNTER 



"COMMAND" QYT£ 



CZTKFA TK 25 FRT ENO FUNC 02 
TEST 1; INITIALIZE *2 TEST 

4120 
4121 
4122 
4123 
4124 

4125 024300 12 7 122 

4126 024375 124 123 

4127 024475 104 162 

4126 024516 111 156 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 024540 

4136 024540 

4139 024544 012701 02411)0 

4140 024550 012721 100004 

4141 024554 012721 024160 

4142 024560 005021 

4143 024562 012721 000010 

4144 024566 012721 024170 

4145 024572 0O5021 

4146 024574 012721 000024 

4147 024600 005021 

4148 024602 005011 

4149 024604 012702 000020 

4150 024610 012762 177777 

4151 024616 0O5742 

4152 024620 020227 000000 

4153 024624 00137J 

4154 024626 000207 
4155 

4156 

4157 024630 

4158 024630 

4159 024634 012701 024260 

4160 024640 012721 100206 

4161 024644 012721 024270 

4162 024650 005021 

4163 024652 012721 000006 

4164 024656 0O5021 

4165 024660 012701 0242/0 

4166 024664 OO5021 

4167 024666 OO5011 
4166 024670 OOO207 
4169 024672 

0246 72 

024672 104401 
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SEQ 119 



I LOCAL TEXT MESSAGES FOR TEST 
l ■ 



111 
123 
151 
151 



•WRITE MISCELLANEOUS CONTROL/READ STATUS Ccxnmand Not Acc«pt«d' 
•TSSP Init. Failed Aftar WRITE MISCELLANEOUS CONRTOL/REAO STATUS 
'Driva !• OFFLINE' 
.ASCIZ 'Initialisation #2* 



T21SSR? ,ASCIZ 
T21AM3: .ASCIZ 
T210FL: ,ASCIZ 
TST21ID: 

,EVEN 
i ♦ 

l ROUTINE TO RESTORE COMMANO PACKET TO START-UP (DEFAULT) VALUES 
I WRITE SUBSYSTEM MEMORY COMMANO 

l 
i - 

T21REST? 



024170 64$} 



T21RT2: 



SAVREO 

MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
CLR 
MOV 
CLR 
CLR 
MOV 
MOV 
1ST 
CMP 
BNE 
RTS 



AVREG 

nov 

MOV 
MOV 
CLR 
MOV 
CLR 
MOV 
CLR 
CLR 
RTS 
fcNQTST 



#T21PACKET,R1 

0100004, (Rl)* 

♦T21DATA,(R1)* 

(Rl)* 

♦6. .(Rl)* 

#T21BFR,(Rl)f 

(Rl)» 

#20.,(R1)» 

(Rl)* 

(Rl) 

♦20, R2 

♦177777. T21BFR(R2) 

(R2) 
R2,*0 
64$ 
PC 



0T21PK2.R1 

♦100206, (Rl)» 

♦T21BF2,(R1)» 

(Rl). 

♦6,,(R1)» 

(Rl)* 

♦T21BF2 4 R1 

(Rl)* 

(Rl) 

PC 



I SAVE THE REGISTERS 

l START OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK , 

jAOORESS OF CHARAISTICS DATA BLOCK 

■EXTENDED ADORESS 

iSIZE OF DATA BLOCK IN BYTES 

l ADORESS OF MESSAGE BUFFER 

i LENGTH OF MESSAGE BUFFER 



iNUMBER OF LOCATIONS TO BE CLEARED 

i ALL ONES TO MESSAGE BUFFER 

iNEXT LOCATION 

I CHECK H2 FOR ZERO 

j BR. IF NOT AT ZERO YET 

i RETURN 



iSAVE THE REGISTERS 

jSTART OF THE PACKET 

IWRITE SUBSYSTEM MEM. WITH ACK, IE 

I ADDRESS OF DATA BLOCK 

lEXTENOED ADORESS 

I SIZE OF DATA BLOCK IN BYTES 

lADORESS QF DATA FOR W«T SUG SYS MEM 



iRETURN 



L1Q036J 



TRAP 



C*£TST 
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SF.Q 120 



4171 
4172 

4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4161 
4182 
4183 
4184 

4185 
4186 
4187 
4192 
4193 
4194 
4195 
4196 
4197 



02467* 

024674 

024674 005037 002170 

0247(H) 005037 003100 

024704 012737 005762 002146 

024712 004737 017054 

024716 012700 026032 

024722 004737 017410 

024726 012737 000002 002164 



,SBTTL TEST 2» OFF-LINE ANO REJECT REWIND 

I THIS TEST VERIFIES BASIC TAPE-MOTION COMMANO OECOOING ANO BASIC 

lOPERATION OF THE REWINO POSITIONING COMMAND. IT DOES NOT 

, NECESSARILY DEMONSTRATE THAT THE TRANSPORT CM BE REWOUNO FROM AN 

j ARBITRARY POSITION ON THE TAPE , SUBSEQUENT TESTS IMPLICITLY 

» CHECK THE OPERATION OF THE REWIND COMMANO SINCE THEY MUST 

I TYPICALLY REWINO THE TAPE IN THE NORMAL COURSE OF THEIR TEST 

i SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING ONE SUBTEST 

i 

I 

I - 



BGNTST 

CLR 
CLR 
MOV 
JSR 
MOV 
JSR 
MOV 



FATFLG 

KTFLG 

♦EPRU.EPRTSW 

PCDS8INT 

♦TST22ID.R0 

PC,TSTSETUf> 

02.L00PCNT 






T2: : 
I CLEAR FATAL ERROR FLAG 
iHOLO OFF KT11 

I SET UP PRIMARY ERROR MESSAGE 
lOISABLE INTERRUPTS 
jASCII MESSAGE TO IDENTIFY TEST 
»D0 INITIAL TEST SETUP 
iPERFQRM 2 ITERATIONS 
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SEQ 121 



4199 


024734 






4200 








4201 








4202 








4203 








4204 








4205 








4206 








4207 








4208 








4209 


024734 
024734 








024734 


104402 




4210 


024736 


004737 


026066 


4211 


024742 


004737 


026160 


4212 








4213 








4214 








4215 








4216 








4217 








4218 








4219 


024746 


004737 


016644 


4220 


024752 


103407 




4221 


024754 


004737 


020102 


4225 


024760 


010001 




4226 


024762 








024762 


104455 






024764 


000311 






024766 


003550 






024770 


011666 




'1227 


024772 






4228 


024772 


012704 


025200 


4229 








4230 








4231 








4232 








4233 








4234 








4235 








4236 


024776 


0O4737 


010332 


4237 


025002 


103407 




4238 


025004 


004737 


020102 


4242 


025010 


010001 




4243 


025012 








025012 


104456 






025014 


000312 






025016 


004754 






025020 


011666 




4244 


025022 


012737 


142010 


4245 


025030 


012704 


025310 


4246 


025034 


010465 


177776 


4247 


025040 


004737 


017120 


4248 


025044 


016501 


000000 


4249 


025050 


012702 


000200 


4250 


025054 


020102 




4251 


025056 


001406 





T22L00P: 

J ♦ 

J 

tTEST 2, SUBTEST 1 

I 

»VERIFIES THAT A REWIND COMMAND WITH CVC-1 CLEARS VCK 

i AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER, 

i 

I 

I - 

8GNSUB p>>>, >>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.li 

TRAP CIBSUB 
JSR PC.T22REST jSET COMMAND PACKET 

JSR PC.T22RT2 jSF.T UP OTHER COMMANO PACKET 

j ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

J 

I 4, + ** + + ii + ** + + + + + * * + + ** + + * + + + *+,* + +.+, + *** + * $ + * + **** + ** + + + + + * + + + + K***** 

iOO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

tINC AND CHECK FOR MORE THAN 25 ERRORS 

iCONTENTS OF TSSR REGISTER 

jFATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 201 
.WORO SFIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


201 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO, SFIERR, SFIMSG 



20$ 



MOV 



0T22PACKET.R4 



j SUBROUTINE NEEDS PACKET ADDRESS 



JSR 


PC.WRTCHR 


BCS 


65$ 


JSR 


PC.FATCHK 


MOV 


R0,R1 


ERRHRD 


ERRNO f WRTMSG, SFIMSG 



025310 651: 



t ***************#******************+******+*«**« ******************* 

j WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

t 

j++***+*******+************4*****+***********6*****+«*+***+ ******** 

I ISSUE WRITE CHARACTERISTICS 

{ BR. IF COMMAND ISSUED OK 

tINC AND CHECK FOR MORE THAN 25 ERRORS 

»SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILEO 

TRAP CIERHRD 
. WORD 202 
.WORD WRTMSG 
.WORD SFIMSG 
jPOSITION COMMANO CREWINO MODE) CVC-1 
jR4 • POINTER TO PACKET 
I ISSUE. COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
j SET UP EXPECTED 
I ARE THEY EQUAL 
tBR, IF OK ESP* FUNCTION REJECT 



MOV 


♦142010, T22PK2 


MOV 


♦ T22»°K2,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


801 



F10 
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4252 025060 


004737 


020102 


4256 025064 






025064 


104456 




025066 


000313 




025070 


025704 




025072 


016344 




4257 025074 






025074 


104406 




4258 025076 


012703 


025222 


4259 025102 


016301 


000006 


4260 025106 


010102 




4261 025110 


042702 


000020 


4262 025114 


020102 




4263 025116 


001406 




4264 025120 


004737 


020102 


4268 025124 






025124 


104456 




025126 


000314 




025130 


025757 




025132 


016344 




4269 025134 






4270 025134 






025134 






025134 


104403 




4271 025136 


023727 


002170 000031 


4272 025144 


002402 




4273 025146 


004737 


020154 


4274 025152 






4275 025152 


0O4737 


017356 


4276 025156 


103002 




4277 025160 


000137 


024734 


4278 025164 






025164 


104432 




025166 


001036 
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JSR PC.FATCHK 

ERRHRD ERRNO . T22RW J , EXPREC 



SEQ 122 



I INC ANO CHECK FOR MORE THAN 25 ERRORS 
jTSSR INCORRECT AFTER TAPE MOTION CMO 



80$: 



90$; 



999$: 



163$: 







TRAP C$ERHRD 






.WORD 203 






.WORD T22RUJ 






.WORD EXPREC 


CKLOOP 




1 LOOP IF SELECTED 

TRAP C$CLP1 


MOV 


*T22BFR.R3 


x POINTER TO MESSAGE BUFFER 


MOV 


XST0CR3),R1 


t PICK UP XSTO FROM MESSAGE BUFFER 


MOV 


R1.R2 


j SET UP EXPECTED 


BIC 


06IT4.R2 


jVCK SHOULD BE CLEAR 


CMP 


R1.R2 


j ARE THEY EQUAL 


BEQ 


90$ 


1 BR, IF OK (GOOD) 


JSR 


PC.FATCHK 


tINC ANO CHECK FOR MORE THAN 25 ERRORS 


ERRHRD 


ERRNO, T22VCK .EXPREC 


jVCK WASN'T CLEAR CBAD) 

TRAP C$ERHRD 
. WORD 204 
.WORD T22VCK 
.WORD EXPREC 


ENOSUB 




!>>>>>>>>>>>> end SUBTEST >>>>>>>>>>>> 

L10040: 

TRAP C$ESUB 


CMP 


FATFLG,*25, 


j IS ERROR COUNT AT 25 


BLT 


999$ 


iBR, IF LESS THAN 25 


JSR 


PC.CKDROP 


i TRY TO DROP THE UNIT 



JSR PC.TSTLOQP 

BCC 163$ 

JMP T22L00P 

EXIT TST 



iDO WE NEED TO ITERATE TEST 

tBR, IF NO LOOP REQUIRED 

: EXECUTE AGAIN 

j ALL DONE THIS TEST 

TRAP 
.WORD 



C$EXIT 
L10037-* 



G10 
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SEQ 123 



4280 
4281 
4282 
4284 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4295 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4302 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 



025170 
025200 
025200 
025202 
025204 
025206 
025210 
025210 
025212 
025214 
025216 
025220 
025222 



025304 
025310 
025310 
025312 
025314 
025316 



025320 
025320 
025321 
025322 
025324 



025326 
025330 
025332 
025334 
025336 



100204 
025210 
000000 
000012 

025222 
000000 

000024 
000000 
000007 



100206 
025320 
000000 
000006 



000 

000 

000000 

000000 



100201 
100205 
100210 
100211 
177777 



{LOCAL STORAGE FOR THIS TEST 

.BLKB 10-<.- T UV2A67> 
T22PACKET: 

.WORD 10020* 

.WORD T22DATA 

,WORO 

.WORD 10. 
T22DATA: 

.WORD T22BFR 

.WORD 

.WORD 20, 

.WORD 

.WORD 7 

T22BFR; .BLKW 25. 

tWRITE SUBSYSTEM MEMORY COMMAND PACKET 

.BLKB 10-<.-TUV2A67> 
T22PK2: 

. WORD 100206 

.WORD T22BF2 

.WORD 

. WORO 6 . 



.EVEN 

.BYTE 
.BYTE 
.WORD 
.WORD 



T228F2 

T228S0: .BYTE 

T226Slt .BYTE 

T22S2: .WORD 

T22S3: .WORD 

I 

.EVEN 
j TAPE MOTION PACKET COMMAND VALUES 

T22RD: .WORD 100201 

T22WRT: .WORD 100205 

T22P0S: .WORD 100210 

T22F0R: .WORD 1D0211 

.WORD 177777 



i COMMAND PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMAND, WITH IE, 

I ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALL* OF BLOCK SIZE 
I CHARACTERISTICS OAT A BLOCK 
I ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 

, SELECT DRIVE 7 
» MESSAGE BUFFER 



ACK 



jWRITE SUB SYS MEM COMMANO, IE ANO ACK 
i ADDRESS OF SELECT BLOCK DATA 

j SIZE OF DATA PACKET 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
I DATA AREA 



I READ TAPE FORWARD 
j WRITE TAPE FORWARD 
^POSITION TAPE 
j FORMAT TAPE 
I END OF DATA 
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SEQ 124 



4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4547 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
436S 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 



025340 
025435 
025535 
025610 
025704 
025757 
026032 



026066 
026066 
026072 
026076 
026102 
026106 
026110 
026114 
026.U;0 
026122 
026126 
026130 
026154 
026140 
026146 
026150 
026154 
026156 



026160 
026160 
026164 
026170 
026174 
026200 
026202 
026206 
026210 
026214 
026216 
026220 
026222 
026224 
026224 
026224 



127 
124 
104 
124 
124 
103 
117 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
020227 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
005011 
000207 



104401 



122 
123 
162 
123 
123 
126 
146 



111 
123 
151 
123 
123 
103 
146 



025200 
100204 
025210 

000012 
025222 

000024 

000007 
000020 
177777 025222 

000000 



025310 
100206 
025320 

000006 

025320 



! LOCAL TEXT MESSAGES FOR TEST 

i - 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



•WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted' 

'TSSR In it. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS 

•Drive 7 Select Failed To Set "OFL" In TSSR' 

'TSSR Incorrect After Tape Motion Command To Off -Line Device' 

'TSSR Not Correct After REWINO With VCK Set' 

•CVC Set, Didn»'t Reeet VCK In Me««a$e Buffer' 

.ASCIZ 'Off-Line And Reject Rewind' 



T22SSR 

T22AM3 

T220FL 

T22Ths 

T22RWJ; 

T22VCK? 

TST22ID; 

I ♦ 

s ROUTINE TO RESTORE COMMAND PACKET 
i WRITE SUBSYSTEM MEMORY COMMAND 



TO START-UP (OEFAULT) VALUES 



i 
i - 




T22REST: 




SAVREG 




MOV 


♦T22PACKET.R1 


MOV 


♦ 100204, CRD* 


MOV 


♦T22DATA,(RlV 


CLR 


(Rl)* 


MOV 


♦10, ,(Rl)f 


MOV 


♦T226FR,(R1)* 


CLR 


CRD* 


MOV 


♦20., CRD* 


CLR 


(Rl)* 


MOV 


♦7, CRD 


MOV 


♦20, R2 


64$: MOV 


♦177777, T22BFRCR2) 


TST 


-CR2) 


CMP 


R2,*0 


BNE 


64$ 


RTS 


PC 


T22RT2J 




SAVREG 




MOV 


♦T22PK2.R1 


MOV 


♦3 00206, (Rl)> 


MOV 


♦ T223F2.CR1V 


CLR 


(Rl)* 


MOV 


♦6., CRD* 


CLR 


(Rl)* 


MOV 


♦T22BF2.R1 


CLR 


CRD* 


CLR 


(Rl) 


CLR 


(Rl) 


RTS 


PC 


ENDTST 





I SAVE THE REGISTERS 

j START OF THE PACKET 

|V**ITE SUBSYSTEM MEM. WITH ACK , IE 

I ADDRESS Of* CHAPAISTICS DATA BLOCK 

i EXTENDED AOORESS 

j SIZE Of" DATA BLOCK IN BYTES 

I ADDRESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 

j SELECT DRIVE SEVEN 

» NUMBER OF LOCATIONS TO BE CLEARED 

j ALL ONES TO MESSAGE BUFFER 

iBUMP R2 DOWN 

j IS R2 AT ZERO YET 

j KEEP GOING UNTIL DONE 

t RETURN 



j SAVE THE REGISTERS 

jSTART OF THE PACKET 

iWRITE SUBSYSTEM MEM, WITH ACK. IE 

l ADDRESS OF DATA BLOCK 

i EXTENDED ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 

t POINT TO DATA SEL AREA 



jLAST lOC TO BE CLEARED 
l RE TURN 



L10037: 



TRAP 



C$ETST 



CZTKFA TK-25 FRT END FUNC 42 
TEST 3: BASIC WRITE 



4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
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SEQ 125 



4398 
4399 
4400 

4401 
4402 
4407 
4408 

4409 
4410 
4411 
4412 



026226 
026226 
026226 
026232 
02623* 
026244 
026250 
026254 
026260 
026264 
026270 



005037 
005037 
012737 
005037 
004737 
004737 
012700 
004737 
012737 



002170 
003100 
005762 
003102 
020246 
017054 
031761 
017410 
000001 



002146 



002164 



.SBTTL TEST 3: BASIC WRITE 



i ♦ 



j THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMANO OPERATES 
j PROPERLY , UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
I WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
j LIMITED TO VERIFYING THAT THE COMMANO TERMINATED CORRECTLY WITH 
» THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 

j THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 
J 

i 



BGNTST 





CLR 


FATFLG 




CLR 


KTFLG 




MOV 


♦EPRT1.EPRTSW 




CLR 


KTENA8LE 




JSR 


PC.KTOFF 




JSR 


PC.DSBINT 




MOV 


♦TST23ID,R0 




JSR 


PC.TSTSETUP 




MOV 


ai.LOOPCNT 


l * 

5 







j HOLD 



T3:: 
j CLEAR FATAL ERROR FLAG 
OFF KT11 



F KT11 

iSET UP PRIMARY ERROR MESSAGE 

I TURN OFF KT11 

jTuRN OFF KT11 
I DISABLE INTERRUPTS 
j ASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
, PERFORM 1 ITERATIONS 



CZTKFA TK-25 FRT END FUNC 02 
TEST 3; BASIC WRITE 



4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 



4434 
4435 
4436 
4437 
4438 
4439 
4440 
'1441 
4442 
4443 
4444 
4445 
4446 
444 7 
4448 
4449 
4450 
4454 
4455 



4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 



026276 



026276 
026276 
026276 
026300 
026304 
026306 
026310 
026314 
026320 
026324 



104402 
013701 
000241 
006101 
010137 
004737 
004737 
004737 



026330 
026334 
026336 
026342 
026344 
026344 
026346 
026350 
026352 
026354 
026354 



026360 
026364 
026366 



003074 



030520 
031776 
032132 
032070 



004737 016644 

103407 

004737 020102 

010001 

104455 
000455 
003550 
011666 

012704 030360 



004737 010332 

10340/ 

004737 020102 
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SEQ 126 



T23L00P: 

♦ 

TEST 3, SUBTEST 1 

VERIFIES THAT WRITE DATA COMMANDS WITH CVC-1 ANO THE 
SWAP BYTES (SW8) BIT CLEAR OPERATES PROPERLY. THE 
BYTE COUNT (RECORD SIZE) VARIES FROM 20 THROUGH 64K 
IN VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT 
THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION 
MODE). THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE 
RECORDS BUT IS REWOUNO AFTER THE FINAL RECORD IS 
WRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED 
IN THE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN, THE 
TSSR ANO TSBA REGISTERS, ANO THE MESSAGE BUFFER, 



; - 



BGNSUB 



MOV 


TRESIZ.R1 


CLC 




ROL 


Rl 


MOV 


R1.T23RSZ 


JSR 


PC.T23REST 


JSR 


PC,T23RT5 


JSR 


PC,T23RT2 



*>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.1: 

TRAP CiBSUB 
j GET SIZE OF AVAILIABLE MEMORY 
j CLEAR THE CARRY BIT 
,MAKE INTO BYTES 
i STORE IN TEST FOR USE LATER 
I SET COMMAND PACKET 
j RESTORE PACKET 
jSET UP OTHER COMMANO PACKET 

{ ********************************** ************4***+****** ********* 

jISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

1 

j ****************************************** a*************** ******** 

;D0 INITIALIZE ON CONTROLLER 

t BR IF INIT WAS OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

{CONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP CIEROF 
.WORD 301 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PC,SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0,R1 


ERRDF 


ERRNO, SFIERR, SFIMSG 



20$: 



MOV 



SUBROUTINE NEEDS PACKET ADDRESS 



0T23PACKET.R4 

******************************************************************* 

jWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

» 

} ****************************************************************** 



JSR 
BCS 
JSR 



PC.WRTCHR 

23$ 

PC.FATCHK 



j ISSUE WRITE CHARACTERISTICS 

jBR, IF COMMANO ISSUED OK 

l INC AND CHECK FOR MORE THAN 25 ERRORS 



CZTKFA TK-25 FRT END FUNC 02 
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4471 
4472 



4473 

4474 
4475 
4476 
4477 
4478 
4479 
4460 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4468 
4489 
4490 
4491 
449.? 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4507 



4508 

4509 
4510 
4511 
4512 
4513 
4517 



4518 
4519 



026372 
026374 
026374 
026376 
026400 
026402 
026404 
026404 



026406 
026412 
026416 



026424 
026432 
026436 
026440 
026444 
026450 
026454 
026460 
026464 
026470 
026472 
026474 
026500 
026500 
026502 
026504 
026506 
026510 
026510 
026512 
02L-516 
026522 
0265:>4 
026526 
026532 
026532 
026534 
026536 
026540 
026542 
02654? 
026544 



010001 

104456 
000456 
004754 
011666 

104406 



004737 010434 
012703 000024 
013737 003072 



012737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000457 
005011 
011700 

104406 
016501 
012702 
020102 
001406 
004737 

104456 
000460 
031620 
016344 

104406 
062703 



140005 
030510 

020374 
030516 
177776 
017120 
000000 
000200 



020102 



177776 
030510 



020102 
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SEQ 127 



23*: 



MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



lSAVE CONTENTS OF TSSR 




I WRITE CHARACTERISTIC FAILED 




TRAP 


CiERHRD 


.WORD 


302 


.WORD 


wrtm<;g 


.WORD 


SFIMSG 


j LOOP IF SELECTED 




TRAP 


C$CLP1 



j ******** A************** * AAA* A AAA A****** *************************** 

! ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

; 

I *************** A******* ******************************************* 



030512 651: 



JSR PC, REWIND 
MOV 020..R3 
MOV FREE.T23WB 



I CALL THE TAPE REWIND 
{STARTING RECORD SIZE 
i STARTING WRITE BUFFER ADDRESS 



, ***********************************************.£****** ************ 

JwRITE DATA.CVC-l.ACK COMMANO 

i 

l ****************************************************************** 

030510 MOV 0140005, T23PK3 {WRITE DATA.CVC-1 , ACK COMMANO 

j SET UP R4 WITH PACKET ADORESS 
j SET PATTERN IN CORRECT REGISTER 
{FILL MEMORY WITH RECORD SIZE 
{SET UP RECORD SIZE IN PACKET 
l ISSUE COMMANO 
iWAIT FOR SSR TO SET 
I RET TSSR CONTENTS 
j SET UP EXPECTED 
j ARE THEY EQUAL 
iBR. IF OK 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 
j TSSR INCORRECT AFTER WRITE DATA 

TRAP CiERHRD 



MOV 


0140005, T23PK3 


MOV 


♦T23PK3.R4 


MOV 


R3,R0 


JSR 


PC.FILLMEM 


MOV 


R3.T23SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


CMP 


R1,R2 


BEQ 


80$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO, WRTERR.PKTSSR 



80$ 



85$ 



CKL OOP 



jLOOP IF SELECTED 



.WORD 
.WORO 
.WORD 

TRAP 



303 

WRTERR 

PKTSSR 

C$CLP1 



MOV 


TSBA(R5),R1 


MOV 


4T23PK3.R2 


CMP 


R1.R2 


BEQ 


90$ 


JSR 


PCFATCHK 



ERRHRD ERRNO , T23BA , EXPREC 



001750 



90$: 
115$ 



CKLOOP 
ADD 



#1000., R3 



{GET TSBA CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

{BR, IF TSBA IS CORRECT 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

{TSBA UAS NOT CORRECT AFTER WRITE DATA 

TRAP CtERHRD 
.WORD 304 
.WORD T238A 
.WORD EXPREC 

lLOUP IF SELECTED 

TRAP C$CLP1 

iNEXT RECORD SIZE/DATA PATTERN 



TEST 













L10 


KFA TK-25 FRT END FUNC 02 
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iT 3; BASIC 


WRITE 










4520 026550 


020337 


030520 




CMP 


R3.T23RSZ 


4521 026554 


002005 






BGE 


120$ 


4522 026556 


020327 


177776 




CMP 


R3, 065534, 


4523 026562 


001402 






BEQ 


1201 


4524 026564 


000137 


026416 




JMP 


65$ 


4525 026570 






120$} 






4526 026570 


004737 


032132 




JSR 


PC.T23RT3 


452 7 026574 


004737 


032070 




JSR 


PC.T23RT2 


4528 026600 


004737 


010434 




JSR 


PC, REWIND 


4529 026604 


103407 






BCS 


130$ 


4530 026606 


010001 






MOV 


R0.R1 


4531 026610 


004737 


020102 




JSR 


PC.FATCHK 


4535 026614 








ERRHRD 


ERRN0.T23RWN.PKTSSR 


026614 


104456 










026616 


000461 










026620 


031111 










026622 


011700 










4536 026624 






130*: 






4537 026624 








ENDSUB 




026624 












026624 


104403 










4538 026626 


023727 


002170 


000031 


CMP 


FATFLG.025. 


4539 026634 


002402 






BLT 


999$ 


4540 026636 


004737 


020154 




JSR 


PC . CKOROP 


4541 026642 






999$: 







SEQ 128 



j IS R3 OVER MAX RECORD SIZE 
j IF RECORD SIZE IS TOO BIG QUIT 
jEND OF SUBTEST MAX RECORD SIZE 
;8R, IF COMPLETED 
jDO MORE RECORDS 

j RESTORE PACKET 

t CLEAN UP PACKET 

i ISSUE REWIND COMMAND WITH WAIT 

jBR, IF TSSR IS OK (GOOD) 

j SAVE TSSR CONTENTS 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TSSR IS INCORRECT AFTER REWIND 

TRAP CiERHRD 
.WORD 305 
.WORD T23RWN 
.WORD PKTSSR 

!>>>>>>>>>*>> END SUBTEST >>>>>>>>>>>> 

L10042: 

TRAP C$ESUB 
lIS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 
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SEQ 129 



4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 



4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4571 
4572 



4573 
4574 

4575 
4576 
4577 
4578 
4579 
45C0 
4561 
4562 
4583 
4584 
4588 
4589 



4590 
4591 
4592 
4593 
4 594 
4595 



026642 
026642 
026642 
026644 
026650 



104402 

004737 031776 

004737 032070 



026654 
026660 
026662 
026666 
026670 
026670 
026672 
026674 
026676 
026700 
026700 



004737 016644 

103407 

004737 020102 

010001 

104455 
000462 
003550 
011666 

012704 030360 



026704 
026710 
026712 
026716 
026/20 
026720 
026722 
026724 
026726 
026730 
026730 
026734 



004737 010332 

103407 

0O4737 020X02 

010001 

104456 
000463 
004 754 
011666 

012703 000024 
013737 003072 



I * 



TEST 3, SUBTEST 2 

VERIFIES THAT WRITE DATA COMMANDS WITH CVC-1 AND THE 
SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME, 



BGNSUB 



JSR 

JSR 



PC,Y23REST 
PC.T23RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.2: 

TRAP CJBSUB 
jSET COMMANO PACKET 
{SET UP OTHER COMMAND FACKET 



; ******* ********************************** ******** ******** * ****** ** 

, ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

t ********************* ******************************** ***** ******* 

j DO INITIALIZE ON CONTROLLER 

j BR IF INIT WAS OK 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 306 
.WORD SFIE.RR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


201 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



20$: 



MOV 



OT23PACKET.R4 



{SUBROUTINE NEEDS PACKL T ADDRESS 



. ****************************************************************** 

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

i 

} ****************************************************************** 



JSR PC, WRTCHR 

BCS 23$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SF IMSG 



23$: 

030512 65$; 



MOV 420..R3 
MOV FREE.T23WB 



j ISSUE WRITE CHARACTERISTICS 

{BR, IF COMMANO ISSUED OK 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

{SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 
.WORO 307 
.WORD WRTMSG 
.WORD SFIMSG 

{STARTING RECORD SIZE 
{STARTING WRITE BUFFER ADDRESS 



I *«.&*************************************************************** 
J 
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SEQ 130 



4596 








{WRITE DATA.CVC 


■l.ACK.SWB COMMAND 




4597 








9 






4598 
4599 

4600 








5 ********************* ********************************************* 


026742 


012737 


150005 030510 


MOV 


0150005, T23PK3 


lURITE DATA.CVC -l.ACK, SUB COMMAND 


4601 


026750 


012704 


030510 


MOV 


*T23PK3,R4 


■SET UP R4 WITH PACKET ADDRESS 


4602 


026754 


010300 




MOV 


R3,R0 


jSET PATTERN IN CORRECT REGISTER 


4603 


026756 


004737 


020374 


JSR 


PC,FILLMEM 


{FILL MEMORY WITH RECORD SIZE 


4604 


026762 


010337 


030516 


MOV 


R3.T23SZ 


,SET UP RECORD SIZE IN PACKET 


4605 


026766 


010465 


177776 


MOV 


R4.TSDBCR5) 


; ISSUE COMMANO 


4606 


026772 


004737 


017120 


JSR 


PC.WAITF 


{WAIT FOR SSR TO SET 


4607 


026776 


016501 


000000 


MOV 


TSSRCR5),R1 


iGET TSSR CONTENTS 


4608 


027002 


012702 


000200 


MOV 


4SSR,R2 


j SET UP EXPECTED 


4609 


027006 


020102 




CMP 


R1.R2 


tARE THEY EQUAL 


4610 


027010 


001406 




BEQ 


80$ 


j BR, IF OK 


4611 


027012 


004737 


020102 


JSR 


PC.FATCHK 


I INC AND CHECK FOR MORE THAN 25 ERRORS 


4615 


027016 
027016 
027020 
027022 
027024 


104456 
000464 
005011 
011700 




ERRHRD 


ERRNO,WRTERR, PKTSSR 


{TSSR INCORRECT AFTER WRITE DATA 

TRAP CIERHRD 
. WORD 308 
.WORD WRTERR 
WORD PKTSSR 


4616 


027026 
027026 


104406 




80$: CKLOOP 




j LOOP IF SELECTED 

TRAP C$CLP1 


4617 


027030 


016501 


177776 


MOV 


TSBACR5),R1 


{GET TS8A CONTENTS 


4618 


027034 


012702 


030510 


MOV 


0T23PK3.R2 


{SET UP EXPECTED 


4619 


027040 


020102 




85$} CMP 


RI.R2 


tARE THEY EQUAL 


4620 


027042 


001406 




BEQ 


90$ 


{BR, IF TSBA IS CORRECT 


4621 


027044 


004737 


020102 


JSR 


PC.FATCHK 


{INC ANO CHECK FOR MORE THAN 25 ERRORS 


4625 


027050 
02 7050 
027052 
027054 
027056 


104456 
000465 
031620 
016344 




ERRHRD 


ERRN0,T23BA,EXPREC 


{TSBA WAS NOT CORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 309 
.WORD T23BA 
.WORD EXPREC 


4626 


027060 
027060 


104406 




90$; CKLOOP 




{LOOP IF SELECTED 

TRAP C$CLP1 


4627 


027062 


020327 


007376 


CMP 


R3, 07376 


{ONLY CHECK RAM UNTIL ITS FULL 


4628 


027066 


002057 




BGE 


115$ 


{IT WRAPS AROUNO ETC. 


4629 


027070 


004737 


032070 


JSR 


PC.T23RT2 


{MAKE SURE PACKET ANO DATA ARE CLEAN 


4630 


027074 


012737 


000400 030524 


MOV 


*256. .T23S2 


{STARTING RAM ADDRESS 


4631 


027102 


112737 


000000 030522 


MOVB 


♦0.T23BS0 


{STOP INTERNAL TUV05 DIAGNOSTICS 


4632 


027110 


112737 


000000 030523 


MOVfl 


SO.T23BS1 


{SIZE OF RAM READ 


4633 


027116 


012704 


030470 


MOV 


OT23PK2.R4 


{SET R4 WITH PACKET ADDRESS 


4634 


027122 


010465 


177776 


MOV 


R4.TSDBCR5) 


{ISSUE WRITE SUB SYS MEM COMMANO 


4635 


027126 


004737 


017236 


JSR 


PC.CHKTSSR 


{CHECK TSSR ANO WAIT FOR SSR TO SET 


4636 


027132 


103407 




BCS 


92$ 


;BR. IF NO ERRORS IN TSSR 


4637 


027134 


010001 




MOV 


R0.R1 


{SAVE TSSR 


4638 


027136 


004737 


020102 


JSR 


PC.FATCHK 


iINC ANO CHECK FOR MORE THA J5 ERRORS 


4642 


027142 
027142 

027144 
027146 
027150 


104456 
000466 
031672 
011700 




ERRHRD 


ERRN0.T23WSS, PKTSSR 


{TSSR BAD AFTER WRITE 3UB SYS MEM 

TRAP C$ERHRD 
.WORD 310 
.WORD T23WSS 
.WORD PKTSSR 


4643 


027152 
027152 


104406 




92$ j CKLOOP 




{LOOP IF SELECTED 

TRAP C$CLP1 


4644 


027154 


004737 


032070 


JSR 


PC.T23RT2 


{MAKE SURE PACKET AND DATA ARE CLEAN 


4645 


027160 


012737 


000400 030524 


MOV 


*256. .T23S2 


{STARTING RAM ADDRESS 


4646 


027106 


112757 


000001 030522 


Move 


fti,T23BS0 


iREAD RAM COMMAND FOR WRITE SUB SYS M, 
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SEQ 131 



464 7 
4646 
4649 
4650 
4651 
4652 
4653 
4657 
4656 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4666 
4672 



4673 

4674 



46 75 
46 76 

4677 
467Q 



027174 
02/202 
027206 
027212 
027216 
027220 
027222 
027226 
027232 
027236 
027240 
027244 
027246 
027252 
027252 
027256 
027262 
027264 
027266 
027272 
027272 
027274 
027276 
027300 
0273O2 
027302 
027302 
027302 
027304 
027312 
027314 

027320 



112737 
012704 
010465 
004737 
103403 
010001 
004737 
062703 
020337 
002005 
020327 
001402 
000137 

004737 
004737 
103407 
010001 
004737 

104456 
0004 70 
031111 
011700 



104403 
023727 
002402 
004737 



000002 
0304 70 
177776 
017236 



020102 
001750 
030520 

177776 

026734 

032070 
010434 

020102 



002170 
020154 



030523 



95*1 



115li 



120$ t 



MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

JSR 

ADO 

CMP 

BGE 

CMP 

BEQ 

JMP 

JSR 
JSR 
BCS 
MOV 
JSR 
ERRHRO 



130li 



EN0SU8 



000031 



♦2.T238S1 

#T23PK2,R4 

R4.TSDBCR5) 

PC,C«<TS$R 

115$ 

RO.Rl 

PC.FATCHK 

#1000. ,R3 

R3.T23RSZ 

120$ 

R3. #65534, 

120$ 

65$ 

PC.T23RT2 

PC.REWINO 

130$ 

RO.Rl 

PC FATCW 

ERRN0»T23RWN,PKTSSR 



999$ i 



CMP 


FATFLG,#25 % 


BIT 


999$ 


JSR 


PCiCKOROP 



SIZE OF RAM REAO 

SET R4 WITM PACKE f AOORESS 

ISSUE WRITE SUB SYS MEM CMO (READ RAM) 

CHECK TSSR ANO WAIT FOR SSR TO SET 

BR, IF NO ERRORS IN TSSR 

SAVE TSSR 

INC ANO CHECK FOR MORE THAN 25 ERRORS 

NEXT RECORD SIZE/DATA PATTERN 

IS R3 OVER MAX RECORD SIZE 

IF RCCORO SIZE IS TOO BIG QUIT 

ENO OF SUBTEST MAX RECORD SIZE. 

BR, IF COMPLETED 

DO MORE RECORDS 

CLEAN UP PACKET 

ISSUE REUltt) COMMAND WITH WAIT 

BR, IF TSSR IS OK CGOOO) 

SAVE TSSR CONTENTS 

INC AND CHECK FOR MORE THAN 25 ErfORS 

TSSR IS INCORRECT AFTER REWIND 

TRAP C$ERHRD 

.WORO 312 
.WORO T23RWN 
.WORD PKTSSR 

4>> >*>>*>>>>> END SUBTEST >>>>>>>>>>»> 

1.10043: 

TRAP CtESL© 

lIS ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
I TRY TO D3QP THE UNIT 



Kir* 



TK. 



Sr"B^§lE"ttR 



;r.l 



m 
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SEQ 132 



4600 
4691 
466? 
4693 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 



4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4708 
4709 



4710 
47U 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
4 720 
4721 
4 725 
4726 



4727 
4728 
4 729 
4/30 
4731 
4732 



i ♦ 

j 



027320 
027320 
027320 
027322 
027326 
027332 



027336 
027342 
027344 
027350 
027352 
027352 
027354 
027356 
027360 
027362 
027362 



027366 
027372 
027374 
027400 
027402 
027402 
027404 
02 7406 
02741Q 



104402 

004737 031776 

004737 032132 

004737 032070 



004737 016644 

105407 

004737 020102 

010001 

104455 
0OO471 
003550 
011666 

012704 030360 



004737 010332 

103407 

004737 020102 

010001 

104456 
0OO4 72 
004754 
011666 



iTEST 3, SUBTEST 3 

» VERIFIES THAT A WRITE COMMANO WITH AN ILLEGAL MODE 
jFIELD OP AN ILLEGAL BUFFER AOORESS IS REJECTED WITH 
l THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE 



BGNSUB 



JSR 
JSR 
JSR 



PCT23REST 
PC.T23RT3 

PC,T23RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.3i 

TRAP C$BSUB 
I SET COMMAND PACKET 
iRESTORE PACKET 
I SET UP OTHER COMMANO PACKET 



j****************************************************************** 

j ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

1 

|*****************************************************************» 

lOO INITIALIZE ON CONTROLLER 

iBR IF 1NIT WAS OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

I CONTENTS OF TSSR REGISTER 

iFATAL ERROR TSSR WAS NOT OK 

TRAP ClEROF 
.WOPO 313 
.WOPO SFIEPR 
.WOPO SFIMSG 



JSR 


PC.SCTINIT 


BCS 


201 


JSR 


PCFATCHK 


MOV 


R0.R1 


ERROF 


ERRNO,SFIERR, SFIMSG 



20$: 



MOV 



0T23PACKET.R4 



j SUBROUTINE NEEDS PACKET AOORESS 



j****************************************************************** 

iWRITE CHARACTERISTICS COMMANO (CALL TO WPTCHR) 

J 

j******* A *********** ****** ****** A** ********** ************* ********* 



JSR PC, WPTCHR 

BCS 23$ 

jSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SF IMSG 



I ISSUE JRITE CHARACTERISTICS 

iBR, IF COMMAND ISSUEO OK 

l INC AND CHECK FOP MOPE THAN 25 ERRORS 

I SAVE CONTENTS OF TSSR 

jWRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 
.WOPO 314 
.WOPO WRTMSG 
.WOPO SFIMSG 

,********************4********************************************* 

IWR1TE DATA, ACK, ILLEGAL BITS 

l 

j ************************** **4 *******«**^** ****«,** 4*4^*444444^44^44 



C/TKFA TK 25 
TEST 3; BASl 



E RT 



WR 



W 
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4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4749 



4750 
4751 



4752 
4753 
4754 
4755 



027412 
027420 
027426 
027434 
027442 
027446 
027452 
027456 
027462 
027466 
027470 
0274 72 
027476 
027476 
027500 
027502 
027504 
027506 
027506 
027510 
027510 
027510 
027512 
027520 
027522 
027526 



012737 
013737 
062737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000473 
030736 
011700 

104406 



104403 
023727 
002402 
004737 



104405 
003072 
000001 
000400 
030510 
177776 
017120 
OOOOOO 
100206 



020102 



002170 
020154 



030510 23$; 
030512 
030512 
030516 



80$j 



MOV 
MOV 
ADD 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



CKLOOP 
ENOSUB 



000031 



999$: 



CMP 
BuT 
JSR 



♦104405, T23PK3 

FREE.T23W6 

♦1.T23WB 

0256..T23SZ 

♦T23PK3.R4 

R4.TSD6CR5) 

PC.WAITF 

TSSRCR5),R1 

♦SSR!SC!BIT1!BIT2,R2 

R1.R2 

80$ 

PC.FATCMK 

ERRN0,T23TM,PKTSSR 



FATFLG,*25, 

999$ 

PC.CKDROP 



SEQ 133 



iWRITE DATA, ACK, ILLEGAL BITS 

l SET UP WRITE BUFFER ADDRESS 

j MAKE ADDRESS 000 (ILLEGAL) 

I SET UP BUFFER SIZE 

»R4 - POINTER TO PACKET 

iISSUE COMMANO 

iWAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

j SET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF OK ESP, FUNCTION REJECT 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER WRITE COMMANO 



TRAP 


C$ERHRD 


.WORD 


315 


.WORD 


T23TM 


,WORD 


PKTSSR 


jlOOP IF SELECTED 




TRAP 


C$CLP1 


!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 



L10044: 

TRAP 
I IS ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
jTRY TO DROP THE UNIT 



C$ESUB 



CZTKFA IK- 
TEST 3: B 



;ic R wftfTi 



FUNC 42 
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SEQ 134 



4757 
4758 
4759 
4 760 
4761 
4762 
4 763 
4 764 
4765 
4766 
4767 
4 768 
4769 



4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4 782 
4/83 
4784 
4785 
4786 
4787 
4788 
4789 
4793 
4794 



4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4810 
4811 



027526 
027526 
027526 
027530 



027534 
027536 
027542 
027546 
027552 



027556 
027562 
027564 
027570 
027572 
027572 
027574 
027576 
027600 
027602 
027602 



027606 
027612 
027614 
027620 
027622 
027622 
027624 



104402 

005737 003100 



000240 

000137 027776 

004737 031776 

004737 032132 

004737 032070 



004737 016644 

103407 

004737 020102 

010001 

104455 
000474 
003550 
011666 

012704 030360 



004737 010332 

103407 

004737 020102 

010001 

104456 
000475 



l ♦ 

iTEST 3, SUBTEST 4 

t 

j VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 
j BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
{ THE PROPER ERROR STATUS WITHOUT MOVING TAPE 

i 
I 
i 
1 - 



10$ 



BGNSUB 



TST 
BEQ 



KTFLG 
10$ 



DIALOG PATCH FOR NXM 



NOP 
JMP 
JSR 
JSR 
JSR 



90$ 

PC,T23REST 

PC.T23RT3 

PC.T23RT2 



j >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.4: 

TRAP C$BSUB 
iCHECK FOR KT-11 
jBR, IF NO KT-11 



jREMOVE WHEN NXM IS FIXED 

tSKIP THIS TEST IF KT-11 

j SET COMMAND PACKET 

i RESTORE PACKET 

j SET UP OTHER COMMAND PACKET 



l * A********* *************** **************************************** 

j ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
t 

; ********** *************************************************** ** *** 

j DO INITIALIZE ON CONTROLLER 

I BR IF INIT WAS OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I CONTENTS OF TSSR REGISTER 

i FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 316 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



20$; 



MOV 



0T23PACKET.R4 



{SUBROUTINE NEEDS PACKET ADDRESS 



I ****************************************************************** 

jWRITE CHARACTERISTICS COMMANO CCALL TO WRTCHR) 

J 

| ********************************************************** ****:>*** 



JSR PC.WRTCHR 

BCS 23$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SF IMSG 



» ISSUE WRITE CHARACTERISTICS 

I BR, IF COMMAND ISSUED OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

l SAVE CONTENTS OF TSSR 

I WRITE CHARACTERISTIC FAILED 

TRAP C$ERHRO 
.WORD 317 
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SEQ 135 





027626 


004754 








027630 


011666 






4812 










4813 










4814 










4315 










4816 










4817 










4818 










4819 


027632 


005037 


040726 




4820 


027636 


012737 


140005 


030510 


4821 


027644 


012701 


160000 




4822 


027650 


012702 


177776 




4823 


027654 


004737 


017276 




4824 


027660 


103402 






4825 


027662 


000137 


027776 




4826 


027666 


010137 


030512 




4827 


027672 


013737 


040726 


030514 


4828 


027700 


012737 


000100 


030516 


4829 


027706 


012704 


030510 




4830 


027712 


010465 


177776 




4831 


027716 


004737 


017120 




4832 


027722 


016501 


000000 




4833 


027726 


012702 


104210 




4834 


027732 


020102 






4835 


027734 


001417 






4836 


027736 


062737 


000001 


040726 


4837 


027744 


022737 


000100 


040726 


4838 


027752 


001402 






4839 


027754 


0O0137 


027636 




4840 


027760 


004737 


020102 




4844 


027^64 
027764 
027766 
027770 
027772 


104456 
000476 
030736 
011700 






4845 


027774 
027774 


104406 






4646 


027776 








4847 


027776 
027776 
027776 


104403 






4848 


030000 


023727 


002170 


000031 


4849 


030006 


002402 






4850 


030010 


004737 


020154 




4851 


030014 









.WORD 
.WORD 



WRTMSG 
SFIMSG 



I ************************************************* ***************** 

\ 

i WRITE DATA, ACK, CVC-1 

i 

;********************«*************************************** ****** 

j SET EXTENDEO ADDRESS BITS TO 

jWRITE DATA, ACK, CVC-1 

, START POSSIBLE NXM ADDRESS 

jENO POSSIBLE NXM ADDRESS 

j CALL NXM FINDER ROUTINE 

i BR IF NXM ADORESS FOUNO 

,JMP OVER CAN'T FIND NXM 

j SET UP WRITE BUFFER ADORESS 

I HIGH ORDER ADORESS BITS 

I SET UP BUFFER SIZE 

iR4 - POINTER TO PACKET 

j ISSUE COMMAND 

I WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

iBR, IF OK ESP. FUNCTION REJECT 

lLOOK AT NEXT EXTENDED BITS WORTH OF MEM 

I TOO MUCH MEMORY YET 

jBR, IF OVER 18 BIT ADORESS 

iTRY AGAIN (NEXT BUNCH OF MEMORY) 

»INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER WRITE COMMAND 

TRAP C$ERHRD 

.WORD 318 
.WORD T23TM 
.WORD PKTSSR 
CKLOOP j LOOP IF SELECTED 

TRAP 



23$: 


CLR 


T24DLY , 


25$: 


MOV 


#140005, T23PK3 » 




MOV 


#160000, Rl j 




MOV 


#177776, R2 i 




JSR 


PC.XNXM » 




BCS 


761 i 




JMP 


90$ i 


76$: 


MOV 


R1,T23WB , 




MOV 


T24DLY,T23W6*2 » 




MOV 


♦64..T23SZ i 




MOV 


♦T23PK3.R4 i 




MOV 


R4.TSDBCR5) , 




JSR 


PCWAITF , 




MOV 


TSSR(R5).R1 , 




MOV 


*SC!NXM!SSR!BIT3,R2 i 




CMP 


R1.R2 i 




BEQ 


80$ i 




ADD 


•1.T24DLY i 




CMP 


#100,T24DLY , 




BEQ 


168$ i 




JMP 


25$ i 


168$: 


JSR 


PCFATCHK , 




ERRHRD 


ERRN0.T23TM, PKTSSR ; 



80$: 
90$: 



999$; 



ENOSUB 



CMP 
BLT 
JSR 



FATFLG.025, 
999$ 

PC.CKOROP 



C$CLP1 



;>>>>>>>>>>>> ENO SUBTEST >>>>>>>>>>>> 

L10045: 

TRAP C*ESU6 

iIS ERROR COUNT AT 25 
,BR, IF LESS THAN 25 
j TRY TO DROP THE UNIT 



C7TKFA TK- 
TEST 3: B 



► FRT 

;ic wa 



fffi 



FUNC *2 



4853 
4854 
4855 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4863 
4864 
4865 
4866 
4867 
4868 



4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4883 
4884 
4885 
4886 
4887 
4888 
4892 
4893 



4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4909 



030014 
030014 
030014 
030016 



030022 
030024 
030030 
030034 
030040 



104402 
005737 



000240 
000137 
0O4737 
004737 
0O4737 



030044 
030050 
030052 
030056 
030060 
030060 
030062 
030064 
030066 
030070 
030070 



030074 
030100 
030102 
030106 



004737 
103407 
004737 
010001 



003100 



030320 
032132 
031776 
032070 



016644 
020102 



0O4737 
103407 
004737 
010001 

104455 
0O0477 
003550 
011666 



012704 030360 



010332 
020102 
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SEQ 136 



i TEST 3, SUBTEST 5 

i VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 

I BUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO 

j NONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR 

{STATUS, A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH 

jTHAT TAPE IS ACTUALLY MOVED AND WRITTEN. 

i 

i 

i 

J 

; - 



9$: 

j 
i 
; 

10$ 



BGNSUB 



TST 
BEQ 



KTFLG 
10$ 



DIALOG PATCH FOR NXM 



NOP 

JMP 
JSR 
JSR 

JSR 



851 

PCT23RT3 
PC.T23REST 
PC,T23RT2 



t >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.5j 

TRAP C$BSU8 
iCHECK FOR KT11 
iBR, IF NO KT11 



; REMOVE WHEN NXM IS FIXED 

jSKIP THIS TEST 

»RESTORE PACKET 

j SET COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 



i**** ****************************************************** ******** 

j ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

i 

; ************************* ******************* ********************** 

lOO INITIALIZE ON CONTROLLER 

tBR IF INIT WAS OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

, CONTENTS OF TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 319 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


t>S~-l 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERROF 


ERRNO, SFIERR, SFIMSG 



20$: 



MOV 



0T23PACKET.R4 



j SUBROUTINE NEEDS PACKET ADDRESS 
****************************************************************** 

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

****************************************************************** 

j ISSUE WRITE CHARACTERISTICS 

|BR» IF COMMAND ISSUED OK 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

jSAVE CONTENTS OF TSSR 



JSR 


PC.WRTCHR 


BCS 


23$ 


JSR 


PC.FATCHK 


MOV 


RO.Rl 



HIWaE 



\ii*i«m 



FUNC *2 
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SEQ 137 



4910 



4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4938 



4939 

4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
*948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4962 



030110 
0301)0 
030112 
030114 
030116 



030120 
030126 
030134 
030140 
030144 
030150 
03015G 
030162 
030166 
030172 
030176 
030202 
030204 
030206 
030214 
030222 
030224 
030230 
030230 
030232 
030254 
030236 
030240 
030240 
030242 
030246 



030256 

030264 
030270 
030274 
030300 
030302 
030304 
030310 
030310 



104456 
000500 
004 754 
011666 



012737 
012737 
013701 
162701 
010137 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001415 
062737 
022737 
001341 
004737 

104456 
000501 
031025 
011700 

104406 
0O4737 
004737 



012737 
012704 
010465 
004737 
103407 
010001 
004737 

104456 



000000 
140005 
003076 
000100 
030512 
175000 
030510 
177776 
017120 
OOOOOO 
104210 



000001 
000100 

020102 



032070 
032132 



030252 004737 010434 



ERRHRD ERRNO,WRTMSG,SFIMSG iWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

j ***** ************************************************************* 

jWRITE DATA, ACK.CVC-1 

i 

I ************************************************************ ****** 



CfERHRD 
320 

WRTM5G 
SFIMSG 



030514 
030510 



030516 



231; 
241: 



030514 
030514 



MOV *0,T23WG*2 

MOV 0140005, T23PK3 

MOV FREEHI.R1 

SUB #100, Rl 

MOV R1,T23WB 

MOV 064000. .T23SZ 

MOV OT23PK3.R4 

MOV R4,TSDBCR5) 

JSP PC.WAITF 

KOV TSSR(R5),R1 

MOV 0SC!NXM.*SSR!BIT3,R2 

CMP R1.R2 

BEQ 80$ 

ADO 01,T23WB*2 

CMP O100,T23WB*2 

BNE 24$ 

JSR PC.FATCHK 

ERRHRD ERRNO , T23TMA , PKTSSR 



80$: 



CKLOOP 

jsr 

JSR 



PC.T23RT2 
PC.T23RT3 



HIGH ORDER AOORESS BITS ETC. 

WRITE DATA, ACK.CVC-1 

HIGHEST ADDRESS 

SET ADDRESS A LITTLE LOWER 

LOAD INTO THE PACKET 

SET UP BUFFER SIZE (64K BYTES) 

R4 - POINTER TO PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK ESP. FUNCTION REJECT 

START CUTTING THE HIGH AOORESS BITS DOWN 

IF NOT AT ZERO, KEEP TRYING 

INC AND CHECK FOR MORE THAN 25 ERRORS 

TSSR INCORRECT AFTER WRITE COMMAND 

TRAP C$ERHRD 
.WORD 321 
.WORD T23TMA 
.WORD PKTSSR 
i LOOP IF SELECTED 

TRAP CfCLPl 
{CLEAN UP PACKET 
jRESTORE PACKET 



102010 030470 
0304 70 
177776 
017236 



020102 



I ****************************************************************** 

i 

j ISSUE A CALL TO REWIND ROUTINE WHICH WILL WAIT QUITE SOME TIME FOR SSR 

t 

j ****************************************************************** 

JSR PC, REWIND j CALL THE TAPE REWIND 



jREWIND (POSITION) COMMAND 

j LOAD R4 WITH PACKET ADDRESS 

I ISSUE REWIND COMMANO 

iWAIT FOR SSR TO SET 

j8R, IF TSSR IS OK (GOOD) 

tSAVE TSSR CONTENTS 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

{ TSSR IS INCORRECT AFTER REWIND 

TRAP CfERHRD 



MOV 


0102010, T23PK2 


MOV 


0T23PK2.R4 


MOV 


R4,TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


851 


MOV 


R0,R1 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO, T23RWN.PKTSSR 



CZTKFA TK-25 FRT END FUNC 02 
TEST 3: BASIC WRITE 
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SEQ 138 



050312 000502 
030314 031111 
030316 011700 

4963 030320 

4964 030320 

4965 030320 

4966 030320 
030320 
030320 104403 

4967 030322 023727 002170 000031 

4968 030330 002402 

4969 030332 00*737 020154 

4970 030336 

4971 C30336 004737 017356 

4972 030342 103002 

4973 030344 000137 026276 

4974 030350 
4975 



WORD 
WORD 
WORD 



322 

T23RWN 

PKTSSR 



85$: 






SKIP: 






130*: 


ENDSU8 






CMP 


FATFIG.025, 




BLT 


999$ 




JSR 


PC.CKDROP 


999$: 








JSR 


PC.TSTLOOP 




BCC 


163$ 




JMP 


T23L0OP 



163$: 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10046: 

TRAP C*ESUB 
jIS ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
{TRY TO DROP THE UNIT 

jDO WE NEED TO ITERATE TEST 
j BR, IF NO LOOP REQUIRED 
j EXECUTE AGAIN 



030350 
030350 



104432 



EXIT 



TST 



:ALL DONE THIS TEST 



030352 001604 



TRAP 
.WORD 



C1EXIT 
L10041-. 



CZTKFA TK-25 FRT END FUNC 02 
TEST 3: BASIC WRITE 



4977 
4973 
4979 
4981 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4998 
5000 
5001 
5002 
5003 
5004 
5005 
5007 
5009 
5010 
5011 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 



030354 
030360 
030360 
030362 
030364 
030366 
030370 
030370 
030372 
030374 
030376 
030400 



030462 
030470 
030470 
030472 
030474 
030476 

030500 
030510 
030510 
030512 
030514 
030516 



030522 
030522 
030523 
030524 
030526 



030530 
030532 
030534 
030536 



100004 
030370 
000000 
00O010 

030400 
OOOOOO 
000012 
OOOOOO 



100006 
030522 
OOOOOO 
000006 



10OO05 
OOOOOO 
OOOOOO 
OOOOOO 



030520 OOOOOO 



010 

200 

OOOOOO 

OOOOOO 



100005 
100405 
102005 
177777 
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SEQ 139 



{LOCAL STORAGE FOR THIS TEST 

I - 



.BLKB 


10-<. -T 


T23PACKET: 




.WORD 


100004 


.WORD 


T23DATA 


.WORD 





.WORD 


8. 


T23DATA5 




.WORD 


T23BFR 


.WORD 





.WORD 


10. 


.WORD 





T23BFR: .BLKW 


25. 



{WRITE SUBSYSTEM MEMORY COMMAND PACKET 

.BLKB 10-<.-TUV2A67> 
T23PK2: 





.WORD 


100006 




.WORD 


T23BF2 




.WORD 







.WORD 


6, 




.BLKB 


l0-<." 


T23PK3: 








.WORD 


100005 


T23WB: 


.WORD 







.WORD 





T23SZ: 


.WORD 
.EVEN 





T23RSZ: 

i 


.WORD 





T23BF2: 






T23BS0; 


.BYTE 


10 


T23BS1: 


.BYTE 


200 


T23S2; 


.WORD 





T23S3; 


.WORD 






I 

.FVFN 
{TAPF MOTION PACKET COMMAND VALUES 

T23W0: .WORD 100005 

T23WDR: .WORD 100405 

T23C0N; .WORD 102005 

.WORD 177777 



iCOMMANO PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMANO, WITH ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{MESSAGE BUFFER 



{WRITE SUB SYS MEM COMMAND, AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



{WRITE COMMAND, ANO ACK 
{ADDRESS OF WRITE BUFFER 

{SIZE OF BUFFER (EXTENT) 



{LARGEST TAPE RECORD IN BYTES 



jBSELO AREA 
{BSEL1 AREA 
{SEL 2 AREA 
jDATA AREA 



iWRITE DATA (NEXT) 
{WRITE DATA RETRY 
{WRITE CONTINOUS 
{END OF DATA 



CZTKFA TK-25 FRT END FUNC 42 
TEST 3: BASIC WRITE 



<11 
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SEQ 140 



5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 



030540 
030573 
030660 
030736 
031025 
031111 
031160 
031233 
031301 
031354 
031443 
031545 
031620 
031672 
031761 



031776 
031776 
032002 
032006 
032012 
032016 
032020 
032024 
032030 
032032 
032036 
032040 
032044 
032050 
032056 
032060 
032064 
032066 



052070 
032070 
032074 
032100 
032104 
032110 
032112 
032116 
032122 



127 
105 
127 
124 
124 
122 
122 
1?4 
104 
j.24 

12.1 
103 
124 
127 
102 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
020227 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
012701 
005021 



122 
117 
122 
123 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
141 



111 
124 
111 
123 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
163 



030360 
100004 
030370 

000012 
030400 

000024 

000000 
000030 
177777 

000000 



030400 



0304 70 
100006 
030522 

000006 
030522 



} LOCAL 

i - 

T23SSR: 

T23ET: 

T23E0Tj 

T23TM: 

T23TMA 

T23RWN 

T23RNC 

T23AM3 

T230FL 

T23WO0 

T23WDC 

T23VCK 

T238A: 

T23WSS; 

TST23I0 

J ♦ 



TEXT MESSAGES FOR TEST 



.ASCIZ 'WRITE Command Not Accepted' 

.ASCIZ 'EOT Not Found In 12000 4k Writes, (Use Shorter Tape)' 

, ASCIZ 'WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

. ASCIZ 'TSSR Not Correct After WRITE Command Reject Due To NXM' 

.ASCIZ 'TSSR Not Correct After WRITE To Non-Existent Memory' 

.ASCIZ 'Rewind (POSITION) Command Not Accepted' 

.ASCIZ 'RAM Error, Correct Data Pattern Not In Ram' 

.ASCIZ 'TSSR Intt. Failed After WRITE Command' 

.ASCIZ 'Drive 7 Select Failed To Set "OFL" In TSSR' 

.ASCIZ 'TSSR Not Correct After WRITE DATA Command, SWe Bit Set' 

.ASCIZ 'TSSR Not Correct After WRITE DATA Command, Check For Tape Offline' 

.ASCIZ 'CVC Set. DIdn"t Reset VCK In Message Buffer' 

.ASCIZ 'TSBA Not Correct After WRITE DATA Command' 

.ASCIZ 'WRITE SUBSYSTEM MEMORY Command Not Accepted CRAM Read)' 

.ASCIZ 'Basic Write' 
.EVEN 



{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
i WRITE SUBSYSTEM MEMORY COMMAND 



>SAVE THE REGISTERS 

l START OF THE PACKET 

{WRITE SUBSYSTEM MEM. WITH ACK 

{ADDRESS OF CHARAISTICS DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 



T23REST: 




SAVREG 




MOV 


♦T23PACKET,R1 


MOV 


♦100004, CR1)* 


MOV 


♦T23DATA,(Rl)f 


CLR 


(Rl)f 


MOV 


♦10., CRD* 


MOV 


#T23BFR,(R1)* 


CLR 


(Rl)* 


MOV 


♦20. .CRD* 


CLR 


CRD* 


MOV 


♦0.CR1) 


MOV 


♦24. ,R2 


64$! MOV 


♦177777, T23BFRCR2) 


TST 


-CR2) 


CMP 


R2.00 


BNE 


64$ 


RTS 


PC 


T23RT2: 




SAVRFG 




MOV 


*T23PK2,R1 


MOV 


♦ 100006, CRD* 


MOV 


♦T23BF2,(Rl)f 


CLR 


CRD* 


MOV 


46. ,CR1)* 


MOV 


0T23BF2.R1 


CLR 


CRD* 



{ADDRESS OF MESSAGE BUFFER 
{LENGTH OF MESSAGE BUFFER 



{SELECT DRIVE ZERO 

{NUMBER OF LOCATIONS TO BE CLEARED 

»ALL ONES TO MESSAGE BUFFER 

tBUMP DOWN TO NEXT LOCATION 

jR2 AT ZERO YET 

{KEEP GOING UNTIL DONE 

{RETURN 



{SAVE THE REGISTERS 

{START OF THE PACKET 

jWPITE SUBSYSTEM MEM. WITH ACK 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{POINT TO DATA SEL AREA 



CZTKFA TK 25 FRT END TUNC 42 
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5093 


032124 


005021 


5094 


032126 


005011 


5095 


032130 


000207 


5096 


032132 




5097 


032132 




5098 


03E136 


012701 030510 


5099 


032142 


012V 21 100005 


5100 


032146 


005021 


5101 


032150 


005021 


5102 


032152 


005011 


5103 


032154 


000207 


5104 


032156 
032156 






032156 


104401 





Lll 


MACRO M1200 2Q-APR-84 


U8:12 PAGE 100-1 


CLR 


CRD* 


CLR 


(RID 


RTS 


PC 


T23RT3 5 




SAVREG 




MOV 


0T23PK3.R1 


MOV 


$100005, (Rl)* 


CLR 


(Rl)* 


CLR 


(Rl)* 


CLR 


(Rl) 


RTS 


PC 


ENDTST 





SEQ 141 



j RETURN 

iSAVE THE REGISTERS 
I START OF THE PACKET 
I WRITE TAPE, WITH ACK 
i ADDRESS OK DATA BLOCK 
I EXTENDED ADDRESS 
jSIZE OF DATA BLOCK 
I RETURN 

L10041: 



TRAP 



C$ETST 
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SEQ 142 



5107 
5108 
5109 
5110 
5111 
5112 
5117. 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 

5128 
5129 
5130 
5131 
5132 
5137 
5138 
5139 
5140 
5141 
5142 



032160 
032160 
032160 
032164 
032170 
0321/6 
032202 
032206 
032212 
032216 

032224 



005037 002170 

00503? 003100 

012737 005762 002146 

005037 003102 

004737 020246 

012700 043172 

004737 017410 

012737 000001 002164 



♦SBTTL TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 

;THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
tCOMMANOS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
jDATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY 
j SPACE IS AVAILIABLE), ANO BYTE-SWAP CONTROL ARE USED. THIS TEST 
j OF COURSE, "URTHER VERIFIES THE WRITE DATA COMMANO BY ACTUALLY 
{READING AND VERIFYING WRITTEN DATA, ALSO TESTED ARE PROPER 
i TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
{LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT , ILLEGAL DATA 
j BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC 
i READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE T EST 
i 

'jTHE TEST CONSISTS OF THE FOLLOWING 12 SUBTESTS 

t 
j 
i 



BGNTST 

CLR 
CLR 
MOV 
CLR 
JSR 
MOV 
JSR 
MOV 



FATFLG 
KTFLG 

♦EPRT1.EPRTSW 
KTENABLE 
PC.KTOFF 
*TST24ID,R0 

PC.TSTSETUP 
Ol.LOQPCNT 



T4 
ERROR 



FLAG 



: CLEAR FATAL 
;HOLD OFF Kill 

j SET UP PRIMARY ERROR MESSAGE 

I TURN OFF Kill 

jTURN KT11 OFF 

j ASCII MESSAGE TO IDENTIFY TEST 

jDO INITIAL TEST SETUP 

jPERFORM 1 ITERATIONS 



T24L00P 
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M1200 20-APR-84 OB; 12 
REVERSE) 
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SEQ 143 



5144 








5145 








5146 








5147 








5148 








5149 








5150 








5151 








5152 








5153 








5154 








5155 








5156 








5157 








5158 








5159 








5160 








5161 


032224 
032224 








032224 


104402 




5162 


032226 


004737 


043374 


5163 


032232 


004737 


043240 


5164 


0-12236 


004737 


043332 


5165 


032242 








032242 


104421 




5166 


032244 


032700 


000100 


5167 


032250 


001002 




5168 


032252 


000137 


032776 


5169 


032256 






5170 








5171 








5172 








5173 








5174 








5175 








5176 


032256 


004737 


016644 


5177 


032262 


103407 




5178 


032264 


004 737 


020102 


5182 


032270 


010001 




5183 


032272 








032272 


104455 






032274 


000621 






032276 


003550 






032300 


011666 




5184 


032302 






5185 


032302 


C12704 


040550 


5186 








5187 








5188 








5189 








5190 








5191 








5192 








5193 


032306 


004/37 


010332 


5194 


032312 


103407 




5195 


032314 


004/3/ 


020102 


5199 


033330 


010001 





I ♦ 



TEST 4, SUBTEST 1 

VERIFIES THAT READ FORWARD COMMANDS WITH SWB-0 
OPERATES PROPERLY, THE TAPE IS FIRST REWOUND AND THEN 
WRITTEN WITH A SERIES OF TEST RECORDS VARING IN 
LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND 
AGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS 
(STATUS. DATA, ETC.) VERIFIED. THE BYTE COUNT ON 
EACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE 
EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 
OCCUR. 



l - 



BGNSUB 



JSR PC.T24RT3 

JSR PC.T24REST 

JSR PC.T24RT2 

RFLAGS RO 



BIT 


*BIT6,R0 


BNE 


9* 


JMP 


192$ 



,>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4 . 1 ; 

TRAP C'IBSUB 
{SET UP OTHER COMMAND PACKET 
i SET COMMANO PACKET 
j SET UP OTHER COMMAND PACKET 
{READ SUPERVISOR FLAGS 

TRAP CJRFLA 
{CHECK FOR THE ILS BIT SET 
{IF SET SKIP THE PATCH 
{PATCH IT OUT 
9$t 
t *********** ******************************************************* 

{ISSUE CONTROLLER "SOFT" INITIALIZF • CARRY BIT CLEAR IF ERROR 

{ 

I********* ************************** a****************************** 

{DO INITIALIZE ON CONTROLLER 

I BR IF INIT WAS OK 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT 0;< 

TRAP CJERDF 
.WORD 401 
.WORD SFIERR 
,WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO, SFIERR, SFIMSG 



20$: 



MOV 



0T24PACKET.R4 



{SUBROUTINE NEEDS PACKET ADDRESS 



t **************************** **J, ******V.**** ****** ****** -| *********** 

IwRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
I 

J *********** ****************************u** ************ *^*****.>**** 

{ISSUE WRITE CHARACTERISTICS 

{BR. IF COMMANO ISSUED QK 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

{SAVE CONTENTS OF TSSR 



JSR 


PC. WRTCHR 


BCS 


24$ 


JSR 


PC.FATCHK 


MOV 


RQ.Rl 



B12 
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5200 



5201 

5202 
5205 
5204 
5205 
5206 
5207 
5208 
520* 
5210 
5211 
5212 
5216 



5217 

5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5250 
5254 



5255 

5256 
5257 
5258 
5259 

5240 
5241 
5242 

524 3 
5^44 
5245 
5246 
5247 



052322 
052322 
052524 
052526 
052550 
052552 
052352 



052554 
052540 
052542 
052344 
052550 
052550 
052552 
052554 
052556 
052560 
052360 



052562 
032566 
052570 
052574 
052576 
052400 
052404 
052404 
052406 
052410 
052412 
052414 
0524 14 
052416 
052422 



032450 
0524 36 
032442 



104456 
000622 
004 754 
011666 

104406 



004757 
105407 
010001 
004757 

104456 
000625 
042036 
011700 

104406 



015701 
010102 
052702 
020102 
001406 
004757 

104456 
000624 
041555 
016544 

104406 
012705 
013737 



012737 
012704 



010454 
020102 



040576 
000002 

020102 



000400 
003072 



040702 



140005 
040700 



040700 



241: 



CKLOOP 
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SEQ 144 


WRTMSG.SFIMSG 


IWRITE CHARACTERISTIC FAILED 






TRAP 


CtERHRD 




.WORD 


402 




.WORD 


WRTMSG 




.WORD 


SFIMSG 




lLOOP IF SELECTED 






TRAP 


CICLP1 



}*****«*****«********«***«****************«*l 

I 

j ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

I 



JSR 


PC, REWIND 


acs 


501 


MOV 


R0.R1 


JSR 


PC,FATCH< 


ERRHRO 


ERRN0.T24RWN.PKTSSR 



30$: 



CKLOOP 



iCALL TAPE REWINO COMMAND 

I BR, IF NO PROBLEM 

I SAVE TSSR 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 



jLOOP IF SELECTED 



TRAP 


C!ERM*D 


.WORD 


403 


.WORO 


T24RWN 


.WORD 


PKTSSR 



TRAP 



CICLP1 



,***.***#***#* *****#*^*###***#***#***#***#**#* ********************** 

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

i 

iPICK UP XSTO 

i SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

lOOES EXP - REC D 

I BR, IF EQUAL (OK) 

I INC AND OCCK FOR MORE THAN 25 ERRORS 

j TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRD 

.WORD 404 
.WORD T24B0T 
.WORD ExPREC 
40l| CKLOOP iLOOP IF SELECTED 

TRAP CICLP1 

iRECORO SIZE 
iSTARTING WRITE BUFFER ADDRESS 



MOV 


T24BFR.6.R1 


MOV 


R1.R2 


BIS 


•eiTl,R2 


CMP 


R1.R2 


BEO 


401 


JSR 


PC.FATCHK 



ERRHRU ERRNO, T24B0T .EXPREC 



CKLOOP 

MOV 
MOV 



♦256.. R5 
FREE,T24RB 



jWRITfc DATA,CVC-l,ACK COMMAND 

I 

I *********** A%4#.**##*******^ *****%*#.%#' 



651 i 



MOV #140005. T24PKi 

MOV *I24PK3>R4 



i^ITE QATA.CVC-l.ACK CONiAND 
iSCT UP R4 WITH PACKET ADDRESS 



HW\}^hl"kmM : <?fa l 


5248 032442 


010300 




5249 032444 


004737 


020374 


5250 032450 


010337 


040706 


5251 032454 


010465 


177776 


5252 032460 


004737 


017120 


5253 032464 


016501 


oooooo 


5254 032470 


012702 


000200 


5255 032474 


020102 




5256 032476 


001406 




5257 032500 


004737 


020102 


5261 






5262 






5263 032504 






032504 


104457 




032506 


000625 




032510 


0O5O11 




032512 


011700 




5264 032514 






032514 


104406 




5265 032516 


005723 




5266 032520 


022703 


000414 


5267 032524 


001346 




5266 032526 






032526 


104406 




5269 032530 






5270 






5271 






52/2 






5273 






5274 






5275 






52 76 






527 7 032530 


012703 


000012 


5278 032554 


0O4737 


010434 


5279 032540 


103407 




5280 032542 


010001 




5281 032544 


0O4737 


020102 


5285 032550 






032550 


104456 




032552 


0OO626 




032554 


042036 




032556 


011700 




5286 032560 






032560 


104406 




528 7 






5288 






5289 






5290 






5291 






5292 






5293 






5294 032562 


013701 


040576 


5295 032566 


010102 




5296 032570 


052702 


000002 


5297 032574 


020102 




5298 032576 


001407 




5299 032600 


077323 







C12 


APR -84 
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MOV 


R3.R0 


JSR 


PC ( FILLMEM 


MOV 


R3.T24SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEO 


75$ 


JSR 


PC.TATCHK 



SEQ 145 



ERRSOFT ERRNO.WRTERR, PKTSSR 



I SET PATTERN IN CORRECT REGISTER 

IFILL MEMORY WITH RECORD SIZE 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

tWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

{ARE THEY EQUAL 

iBR. IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I SOFT ERROR. REALLY CHECKING THE 

i RE AD COMMAND 

I TSSR INCORRECT AFTER WRITE DATA 



75$: 

80$: 
1201: 



CKLOOP 

TST 
CMP 
BNE 
CKLOOP 



(R3)» 

♦268 4 ,R3 

65$ 



I BUMP 





TRAP 


C$ERSOFT 




.WORD 


405 




.WORO 


WRTERR 




.WORD 


PKTSSR 


lLOOP IF SELECTED 








TRAP 


C$CLP1 


RECORD SIZE 






i END OF RECORD YET 






,BR, IF MORE RECORDS TO 


WRITE 




lLOOP IF SELECTED 







TRAP 



.* + + + * 



C$CLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



125$: 



MOV 


#10., R3 


i SPECIAL MULTIPLE REWINO 




JSR 


PC.REWINO 


1 ISSUE REWIND COMMAND 




BPS 


130$ 


iBR. IF NO PROBLEM 




110V 


R0.R1 


» SAVE TSSR 




JSR 


PC.FATCHK 


lINC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T24RWN. PKTSSR 


I REWIND NOT ACCEPTED 








TRAP 


CIERHRO 






.WORO 


406 






.WORD 


T24RWN 






.WORD 


PKTSSR 



130$: CKLOOP 



lLOOP IF SELECTED 



TRAP 



C1CLP1 



.** 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



MOV 


T24BFR»6,R1 


MOV 


R1.R2 


BIS 


♦BIT1.R2 


CMP 


R1.R2 


BEQ 


140$ 


S06 


R3 .1,251 



iPICK UP XSTO 

iSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

iBR, IF EQUAL (OK) 

iDO ANOTHER REWIND BEFQRL 



REPORTING ERROR 



mv\iMhz*kmiw<fau**m® \ 


5300 032602 


004737 


020102 


5304 032606 






032606 


104456 




032610 


000627 




032612 


041553 




032614 


016344 




5305 032616 






032616 


104406 




5306 032620 


012703 


000400 


5307 032624 


013737 


003072 040702 


5306 






5309 






5310 






5311 






5312 






5313 






5314 






5315 032632 


012737 


140001 040700 


5316 032640 


012704 


040700 


5317 032644 


010337 


040706 


5316 032650 


010465 


177776 


5319 032654 


004737 


017120 


5320 032660 


016501 


000000 


5321 032664 


012702 


000200 


5322 032670 


020102 




5323 032672 


001406 




5324 032674 


004737 


020102 


5328 032700 






032700 


104456 




032702 


000630 




032704 


005104 




032706 


011700 




5329 032710 






032710 


104406 




5330 032712 


013702 


003072 


5331 032716 


010304 




5332 032720 


162704 


000400 


5333 032724 


060204 




5334 032726 


021403 




5335 032730 


001410 




5336 032732 


011401 




5337 032734 


010302 




5338 032736 


004737 


020102 


5342 032742 






032742 


104456 




032744 


000631 




032746 


041620 




032750 


016344 




5343 032752 






032752 


104406 




5344 032754 


005724 




5345 032756 


160204 




5346 032760 


020403 




5347 032762 


001360 




5348 032764 


005723 




5349 032766 


022703 


000412 


5350 032772 


001322 





J 12 



D12 
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SEQ 146 



JSR 
ERRHRD 



140* j CKLOOP 



PC.FATCHK 
ERRN0.T24B0T, EXPREC 



jINC ANO CHECK TOR MORE THAN 25 ERRORS 
I TAPE NOT AT BOT AFTER REWIND 

TRAP 

.WORD 
.WORD 
• WORD 
lLOOP IF SELECTED 



CIERHRD 
407 

T24B0T 
EXPREC 



MOV 
MOV 



♦256., R3 
FREE.T24RB 



iRECORD SIZE 



iRECORD SIZE 

j STARTING READ BUFFER ADORES: 



TRAP C$CLP1 



, ************************ ***************************************,*»* 

I 

I READ DATA, CVO l.ACK COMMAND 

l 

) *********************************************** ****** ************* 



1651: 



MOV 


♦140001, T24PK3 


MOV 


♦T24PK3.R4 


MOV 


R3,T24SZ 


MOV 


R4,TSD6CR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


170* 


JSR 


PC,FATCHK 


ERRHRD 


ERRNO.RDERR.PKTSSR 



iREAD DATA.CVC-l.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 
l SET UP RECORD SIZE IN PACKET 
I ISSUE COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
iSET UP EXPECTED 
I ARE THEY EQUAL 
iBR. IF OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 
j TSSR INCORRECT AFTER READ DATA 

TRAP 



170$: CKLOOP 



173$; 



I LOOP IF SELECTED 



.WORO 
.WORD 
.WORD 

TRAP 



CIERHRD 

408 

RDERR 

PKTSSR 

CICLP1 



MOV 


FREE.R2 


MOV 


R3.R4 


sue 


♦256.. R4 


ADD 


R2.R4 


CMP 


(R4),R3 


BEQ 


180$ 


MOV 


(R4),R1 


MOV 


R3.R2 


JSR 


PC,FATCHK 


ERRHRD 


ERRN0,T24DTA, EXPREC 



jGET BUFFER ADDRESS 

I CURRENT RECORD SIZE 

jFIRST LOCATION IN BUFFER 

iGET LOCATION IN BUFFER (ADORESS) 

iCMECK DATA READ CR3-DATA ALSO) 

l BR, IF ALL IS WELL 

jRECD DATA 

lEXPECTED DATA 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

lOATA READ NOT ■ WRITTEN 

TRAP 



1801: 



CKLOOP 



tLOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



TST 


(R4)* 


iBUMP 


SUB 


R2.R4 


iGET I 


CMP 


R4.33 




BNE 


1731 




TST 


CR3)> 




CMP 


0266. ,R3 




BNE 


1651 





TO NEXT LOCATION 
BACK TO CORRECT SIZE 
j END OF RECORD YET 
;BR. IF NOT AT END OF RECORD 
iBUMP RECORD SIZE 
jEND OF RECORD YET 
iBR, IF MORE RECORDS TO WRITE 



CIERHRD 
409 
T24DTA 
EXPREC 

CICLP1 



CZTKFA TK-25 FRT END FUNC *2 MACRO M1200 20- APR -84 08:12 
TEST 4; BASIC READ DATA (FORWARD AND REVERSE) 
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5351 032774 
032774 

5352 032776 

5353 032776 
032776 
032776 

5354 033000 

5355 033006 

5356 033010 

5357 033014 



104406 



104403 

023727 
002402 
004737 



190$: CKLOOP 



192$: 



002170 000031 
020154 



999 *: 



ENDSUB 



CMP 
BLT 
JSR 



FATFIG.025, 

999$ 

PC.CKOROP 



SEQ 147 



j LOOP IF SELECTED 



TRAP 



CICLP1 



)>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10050: 

TRAP C*E5UB 
iIS ERROR COUNT AT 25 
{BR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



CZTKFA TK-25 FRT ENO FUNC *2 MACRO 
TEST 4: BASIC READ DATA (FORWARD AND 



5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 



F12 
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SEQ 148 



5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5384 
5388 
5389 



5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5405 
5406 



5407 

5408 
5409 
5410 



033014 
033014 
033014 
033016 
033022 
033026 



033032 
033036 
033040 
033044 
033046 
033046 
033050 
033052 
033054 
033056 
033056 



033062 
033066 
033070 
033074 
033076 
033076 
033100 
033102 
033104 
033106 
033106 



104402 
004737 
004737 
004737 



004737 
103407 
004737 
010001 

104456 
000633 
004754 

011666 

104406 



043374 
043240 
043332 



016644 

020102 



004737 
103407 
0O4737 
010001 

104455 
000632 
003550 
011666 



012704 040550 



010332 
020102 



I ♦ 

iTEST 4, SUBTEST 2 

{VERIFIES THAT READ DATA COMMANDS WITH CVC-1 ANO THE 

{SWAP BYTES CSWB) BIT SET OPERATES PROPERLY. THE TEST 

{SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 

j THE RESULTS. EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 

i 

J 

; 

; - 

BGNSUB j >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4.2: 

TRAP C$BSU6 

JSR PC,T24RT3 {SET UP OTHER COMMAND PACKET 

JSR PC.T24REST jSET COMMANO PACKET 

JSR PC.T24RT2 {SET UP OTHER COMMANO PACKET 



i*** 



I ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

J 

I **************************************** ******** ********** ******** 

i DO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

I CONTENTS OF TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 410 
.WORO SFIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0,R1 


ERRDF 


ERRNO, SFIERR, SFIMSG 



20$: 



MOV 



♦T24PACKET.R4 



j SUBROUTINE NEEDS PACKET ADDRESS 



i ****************************************************************** 

jWRITE CHARACTERISTICS COMMAND CCALL TO WRTCHR) 

J 

j****** *************************************************** ********* 



24$: 



JSR PC, WRTCHR 

BCS 24$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SF IMSG 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 

I BR, IF COMMAND ISSUED OK 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
WORD 

I LOOP IF SELECTED 

TRAP 



C$ERHRD 
411 

WRTMSG 
SFIMSG 



C$CLP1 



l****************************************************************** 



CZTKFA TK-25 FRT END TUNC *2 MACRO M1200 20-APR-84 08:12 

TEST 4: BASIC REAO DATA (FORWARD AND REVERSE) 
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SEQ 149 



5411 
5412 
5413 
5414 

5415 033110 

5416 033114 

5417 033116 

5418 033120 

5422 033124 
033124 
033126 
033130 
033132 

5423 033134 
033134 

5424 
5425 
5426 
5427 
5428 
5429 
5430 

5431 033136 

5432 033142 

5433 033144 

5434 033150 

5435 033152 

5436 033154 

5440 033160 
033160 
033162 
033164 
033166 

5441 033170 
033170 

5442 033172 

5443 033176 
5444 

5445 
5446 
5447 
5448 
5449 
5450 
3451 033204 

5452 033212 

5453 033216 

5454 033216 

5455 033220 

5456 033224 

5457 033230 

5458 033234 

5459 033240 

5460 033244 

5461 033250 

5462 033252 

5463 033254 



004737 
103407 

010001 
004737 

104456 
000634 

042036 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
0O0635 
041553 
016344 

104406 
012703 
013737 



012737 
012704 

010300 
004737 
010337 
010465 
0O4737 
016501 
012702 
020102 
001406 
004737 



010434 



020102 



040576 
0C0002 

020102 



0OO400 
003072 



150005 
040700 



020374 
040706 
177776 
017120 
000000 
000200 



020102 



040702 



040700 



j ISSUE REUINO COMMANO TO SELECTED TAPE DRIVE 

i 

I ****** *** ** ***** *** ****************************** ************* ***** 

»CALL TAPE REWIND COMMANO 

I BR, IF NO PROBLEM 

iSAVE TSSR 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


R0.R1 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0,T24RWN,PKTSSR 



30$: 



CKLOOP 



I LOOP IF SELECTED 



TRAP 


CIERHRD 


.WORD 


412 


.WORD 


T24RWN 


.WORD 


PKTSSR 



TRAP C$CLP1 

t ****************************************************************** 

IrEAD MESSAGE BUFFER EXTENOED STATUS REGISTER ZERO CXSTO) 

J 

I****************************************************************** 

jPICK UP XSTO 
i SET UP EXPECTED 
j SET BOT BIT IN EXPECTED 
I DOES EXP - REC'D 
jBR. IF EQUAL (OK) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 
j TAPE NOT AT BOT AF*TER REU'INO 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP jLOOP IF SELECTED 

TRAP 
jRECORD SIZE 
j STARTING WRITE BUFFER ADDRESS 



MOV 


T24BFR*6,R1 


MOV 


R1.R2 


BIS 


♦BIT1.R2 


CMP 


R1.R2 


BEQ 


40* 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T24B0T,EXPREC 



CKLOOP 

MOV 
MOV 



♦256., R3 
FREE,T24RB 



C$ERHRD 
413 
T24B0T 
EXPREC 

C*CLP1 



} ****************************************************************** 

jWRITE DATA,ACK,SWB,CVC-1 COMMAND 

i 

;****************************************************************** 



65$: 



MOV 


♦150005, T24PK3 


MOV 


♦T24PK3.R4 


MOV 


R3,R0 


JSR 


PC.FILLMEM 


MOV 


R3,T24SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


75$ 


JSR 


PC.FATCHK 



iWRITE DATA.ACK,SW6.CVC-1 COMMANO 
l SET UP R4 WITH PACKET ADDRESS 

I SET PATTERN IN CORRECT REGISTER 

iFILL MEMORY WITH RECORD SIZE 

iSET UP RECORD SIZE IN PACKET 

i ISSUE COMMAND 

iWAIT FOR SSR TO SET 

»GET TSSR CONTENTS 

iSET UP EXFECTED 

j ARE THEY EQUAL 

jBR, IF OK 

4 INC AND CHECK FOR MORE THAN 25 ERRORS 



H12 



CZTKFA TK-25 FR 
TEST 4: BASIC 


READ DATA (FORWARD AND f 


5467 








5468 








5469 


033260 








033260 


104457 






033262 


000636 






033264 


005011 






033266 


011700 




5470 


033270 








033270 


104406 




5471 


033272 


005723 




5472 


033274 


022703 


000414 


5473 


033300 


001346 




5474 


033302 








033302 


104406 




5475 


033304 






54 76 








5477 








5478 








5479 








5480 








5481 








5482 








5483 


033304 


0O4737 


010434 


5484 


033310 


103407 




5485 


033312 


010001 




5486 


033314 


004737 


020102 


5490 


033320 








033320 


104456 






033322 


000637 






033324 


042036 






033326 


016344 




5491 


033330 








033330 


104406 




5492 








5493 








5494 








5495 








5496 








5497 








5498 








5499 


033332 


013701 


040576 


5500 


033336 


010102 




5501 


033340 


052702 


00O0O2 


5502 


033344 


020102 




5503 


033346 


001406 




5504 


033350 


0O4737 


020102 


5508 


0333S4 








033354 


104456 






033356 


000640 






033360 


041553 






033362 


016344 




5509 


033364 








033364 


104406 




551V 


033366 


012703 


0OO400 


5511 


033372 


013737 


003072 040702 


5512 








5513 









SEQ 150 



ERRSOFT ERRNO, WRTERR.PKTSSR 



75$: 

80$: 
120$: 



CKLOOP 

TST 
CMP 
BNE 
CKLOOP 



(R3)> 
4268., R3 

65$ 



jSOFT ERROR, REALLY CHECKING THE 

t READ COMMAND 

iTSSR INCORRECT AFTER WRITE DATA 

TRAP CfERSOFT 

.WORD 

.WORD 

.WORD 
lLOOP IF SELECTED 

TRAP 
j BUMP RECORD SIZE 
j END OF RECORD YET 
I BR, IF MORE RECORDS TO WRITE 
j LOOP IF SELECTED 

TRAP 



414 

WRTERR 

PKTSSR 

CtCLPl 



C$CLP1 



; ************ **************************** ************************** 

I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

} 

5 ************************************************************** **** 



JSR PC. REWIND 

BCS 130$ 

MOV R0.R1 

JSR PC,FATCHK 

ERRHRD ERRNO , T24RWN , EXPREC 



130$: CKLOOP 



,CALL TAPE REWIND COMMAND 

l BR, IF NO PROBLEM 

j SAVE TSSR 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

j REWIND NOT ACCEPTED 

TRAP CIERHRD 
.WORD 415 
. WORD T24RWN 
.WORD EXPREC 

jLOOP IF SELECTED 

TRAP C$CLP1 



j ****************************************************************** 

j READ MESSAGE BUFFER EXTENOED STATUS REGISTER Z£RO (XSTO) 

t ***************************************************** ************* 

iPICK UP XSTO 

i SET UP EXPECTED 

j SET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

jBR, IF EQUAL (OK) 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

(TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRD 

. WORD 4 16 
.WORD T24B0T 
.WORD EXPREC 
140$: CKLOOP j LOOP IF ^ELECTED 

TRAP C$CLPi 

iRECORD SIZE 
j STARTING READ BUFFER ADDRESS 



MOV 


T24BFR*6,R1 


MOV 


R1.R2 


BIS 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


140$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO ♦ T24B0T , EXPREC 



CKLOOP 

MOV 

MOV 



♦256. ,R3 

FREE,T24RB 



j ************************** **4 ************************************* 
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TEST 4i BASIC READ OAT A (FORWARD AND REVERSE) 
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SEQ 151 



5514 








5515 








5516 








5517 








5518 








5519 


033400 


012737 


110001 040700 


5520 


033406 


012704 


040700 


5521 


033412 


010337 


040706 


5522 


033416 


010465 


177776 


5523 


033422 


004737 


017120 


5524 


033426 


016501 


000000 


5525 


033432 


012702 


000200 


5526 


033436 


020102 




5527 


033440 


001406 




5526 


033442 


004737 


020102 


5532 


033446 








033446 


104456 






033450 


000641 






033452 


00J104 






033454 


011700 




5533 


033456 








033456 


104406 




5534 


033460 


013702 


003072 


5535 


033464 


010304 




5536 


033466 


162704 


000400 


5537 


033472 


060204 




5536 


033474 


021403 




5539 


033476 


001410 




5540 


033500 


011401 




5541 


033502 


010302 




5542 


033504 


004737 


020102 


5546 


033510 








033510 


104456 






033512 


0O0642 






033514 


041620 






033516 


016344 




5547 


033520 








033520 


104406 




5548 


033522 


005724 




5549 


033524 


160204 




5550 


033526 


020403 




5551 


033530 


001360 




5552 


033532 


005723 




5553 


033534 


022703 


000412 


5554 


033540 


001322 




5555 


033542 








0335*2 


104406 




5556 


033544 
033544 








033544 


104403 




5557 


033546 


023727 


002170 000031 


5558 


033554 


002402 




5559 


033556 


004 737 


020154 


5560 


033562 







jREAD DATA.IE.ACK.SWB COMMAND 

I 

) ********************* A ******************** ********** A****** **** 4** 



165*: 



MOV 


*110001,T24PK3 


MOV 


♦T24PK3.R4 


MOV 


R3.T24SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


R1,R2 


BEQ 


170$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO,RDERR»PKTSSR 



170$: CKLOOP 

MOV 
MOV 

sue 

173$: ADD 
CMP 
BEQ 
MOV 
MOV 
JSR 
ERRHRD 



180$: CKLOOP 



190$: 



999$: 



EN0SU6 



CMP 
BUT 
JSR 



FREE.R2 
R3.R4 
♦256.. R4 

R2.R4 

(R4),R3 

180$ 

CR4),R1 

R3.R2 

PC.FATCHK 

ERRN0,T24DTA,EXPREC 



TST 


(R4)* 


sue 


R2.R4 


CMP 


R4.R3 


BNC 


173$ 


TST 


(R3)* 


CMP 


#266., R3 


BNE 


165$ 


CKLOOP 





FATFLG.025. 

999$ 

PCCKDROP 



jREAD DATA.IE.ACK.SWB COMMAND 

jSET UP R4 WITH PACKET ADDRESS 

j SET UP RECORD SIZE IN PACKET 

I ISSUE COMMANO 

j WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

l SET UP EXPECTED 

j ARE THEY EQUAL 

iBR, IF OK 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER READ OATA 



j LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
417 
RDERR 
PKTSSR 

C$CLP1 



,GET BUFFER ADDRESS 

j CURRENT RECORD SIZE 

■FIRST LOCATION IN BUFFER 

{GET LOCATION IN BUFFER (ADORESS) 

iCHCCK DATA READ (R3-DATA ALSO) 

I BR, IF ALL IS WELL 

iRECD OATA 

jEXPECTED DATA 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j DATA READ NOT - WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 

{BUMP TO NEXT LOCATION 

I SET SIZE TO CORRECT VALUE 

lENO OF RECORD YET 

jBR, IF NOT AT END OF RECORD 

i BUMP RECORD SIZE 

jENO OF RECORD YET 

iBR, IF MORc RECORDS TO WRITE 

jLOOP IF SELECTED 

TRAP 

,>>>>>>>>>>>> END SUBTEST 

L 10051: 

TRAP 
i IS ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
j TRY TO DROP THE UNIT 



C$ERHRD 
418 
T24DTA 
EXPREC 

C$CLP1 



C$CLP1 
>>>>>>>>>>>> 

C$ESUB 



J12 
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M1200 20-APR-84 08:12 PAGE 105 
REVERSE) 



SEQ 152 



5562 
5563 
5564 
5565 
5566 
5567 
556ft 
5569 
5570 
5571 
5572 
5573 
5574 



5575 
5576 
5577 
5578 
5579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5591 
5592 



5593 
5594 
5595 
55<>6 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5608 
5609 



5610 

5611 

5612 
5613 



033562 
033562 
033562 
033564 
033570 
033574 



104402 
004737 
004737 
004737 



033600 
033604 
033606 
033612 
033614 
033614 
033616 
033620 
033622 
033624 
033624 



033630 
033634 
033636 
033642 
033644 
033644 
033646 
033650 
033652 
033654 
033654 



004737 
103407 
004737 
010001 

104456 
000644 
004754 
011666 

104406 



043374 
043240 
043332 



016644 
020102 



004737 
103407 
0O4737 
010O01 

104455 
0006*3 
003550 
011666 



012704 040550 



010332 
020102 



{TEST 4, SUBTEST 3 

1 VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
I LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
j STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
iCRLL) BIT SET. 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



;>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4.3: 

TRAP CiBSUB 
j SET UP OTHER COMMAND PACKET 
;SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



******************************************************************* 

! ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

; 

; ********************** *********************** *** ****** ******** **** 

jDO INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

jCONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP CiERDF 
.WORD 419 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


DCS 


20* 


JSR 


PC.FATCHK 


MOV 


R0 t Rl 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$: 



MOV 



*T24PACKET,R4 



j SUBROUTINE NEEDS PACKET ADDRESS 



j*******************************************-*********************** 

! WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

] ****************************************************************** 



24 5 



JSR PC, WRTCHR 

BCS 24 i 

JSR PC.FATCHK 

rov RO.Rl 

ERRHRD ERRNO , WRTMSG , SF IMSG 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 

iBR, IF COMMAND ISSUED OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

jSAVE CONTENTS OF TSSR 

tWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

lLOOP IF SELECTED 

TRAP 



CSERHRO 

420 

WRTMSG 
SFIMSG 



C$CLP1 



j ********* *********************************************** ********** 



K12 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 153 



5614 
5615 
5616 
5617 

5618 033656 

5619 033662 

5620 033664 

5621 033666 

5625 033672 
033672 
033674 
033676 
033700 

5626 033702 
033702 

5627 
5628 
5629 
5630 
5631 
5632 
5633 

5634 033704 

5635 033710 

5636 033712 

5637 033716 

5638 033720 

5639 033722 

5643 033726 
033726 
033730 
033732 
033734 

5644 033736 
033736 

5645 033740 

5646 033744 
5647 

5648 
5649 
5650 
5651 
5652 
5653 

5654 033752 

5655 033760 

5656 033764 

5657 033764 

5658 033770 

5659 033774 

5660 034000 

5661 034004 

5662 034010 

5663 034012 

5664 034014 
5668 

5669 



004737 
103407 
010001 
004737 

104456 
000645 
042036 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
00O646 
041553 
016344 

104406 
012703 
013737 



012737 
012704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



010434 



020102 



040576 
000002 

020102 



001000 
003072 



140005 
040700 

040706 
177776 
017120 
000000 
000200 



020102 



040702 



040700 



{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

i 

j ************************************ *********** ******* ************ 



JSR 


PC, REWIND 


iCALL TAPE REWIND COMMAND 




BCS 


301 


j BR, IF NO PROBLEM 






MOV 


R0.R1 


{SAVE TSSR 






JSR 


PC.FATCHK 


j INC AND CHECK FOR MORE 


THAN 25 


ERRORS 


ERRHRD 


ERRN0,T24RWN,PKTSSR 


j REWIND NOT ACCEPTLD 


TRAP 
.WORD 

.WORD 
.WORD 


C*ERHRD 
421 

T24RWN 
PKTSSR 


CKLOOP 




{LOOP IF SELECTED 


TRAP 


CICLP1 



30*: 



; *************** A ************************************** ************ 

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

i 

j ****************************************************************** 



MOV 


T24BFR*6,R1 


{PICK UP XSTO 




MOV 


R1.R2 


{SET UP EXPECTED 




BIS 


•BIT1.R2 


{SET BOT BIT IN EXPECTED 




CMP 


R1.R2 


{DOES EXP - REC'D 




BEQ 


40$ 


{BR, IF EQUAL (UK) 




JSR 


PC.FATCHK 


{INC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRNQ,T24B0T,EXPREC 


{TAPE NOT AT BOT AFTER REWINO 








TRAP 


CIERHRD 






.WORD 


422 






.WORD 


T24B0T 






.WORD 


EXPREC 


CKLOOP 




;LOOP IF SELECTED 








TRAP 


C*CLP1 


MOV 


#512. ,R3 


{RECORD SIZE 




MOV 


FREE.V24RB 


{STARTING WRITE BUFFER ADDRESS 





40$ 



j ****************************************************************** 

IwRITE DATA,ACK,CVC»1 COMMAND 

{ 

. ****************************************************************** 



65*: 



MOV 


#140005, T24PK3 


MOV 


#T24PK3,R4 


MOV 


R3.T24SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(H5),R1 


MOV 


#SSR,R2 


CMP 


Ri,R2 


BEQ 


75* 


JSR 


PCFATCHK 



(WRITE DATA,ACK,CVC-1 COMMAND 
,SET UP R4 WITH PACKET ADDRESS 

{SET UP RECORD SIZE IN PACKET 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET L*> EXPECTED 

,ARE THEY EQUAL 

{OR. IF OK 

jINC AND CHECK FOR MORE THAN 25 ERRORS 

{SOFT ERROR, REALLY CHECKING THE 

{READ DATA COMMAND 



L12 



CZTKFA TK-25 FRT END FUNC 02 MACRO M120O 20-APR-84 08:12 PAGE 105-2 
TEST 4 j BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 154 



5670 034020 
034020 
034022 
034024 
034026 

5671 034030 
034030 

5672 034032 
5673 

5674 
5675 
5676 
5677 
5670 
5679 

5680 034032 

5681 034036 

5682 034040 

5683 034042 

5687 034046 
034046 
034050 
034052 
034054 

5688 034056 
034056 

5689 
5690 
5691 
5692 
5693 
5694 
5695 

5696 034060 

5697 034064 

5698 034066 

5699 034072 

5700 034074 

5701 034076 

5705 034102 
034102 
034104 
034106 
034110 

5706 034112 
034112 

5707 034114 

5708 034120 
5709 

5710 
5711 
5712 
5713 
5714 
5715 

5716 034126 

5717 034134 



104457 
000647 
005011 
011700 

104406 



004737 
103407 
0100C1 
0O4737 

104456 
000650 
042036 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000651 
041553 
016544 

104406 
012703 
013737 



010434 
020102 



040576 
000002 

020102 



000400 

003072 040702 



75$: 

120$: 



ERRSOFT ERRNO , WRTERR , PKTSSR 



CKLOOP 



jTSSR INCORRECT AFTER WRITE DATA 

TRAP C$ER50FT 

.WORD 423 

.WORD WRTERR 

.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP C$CLP1 



j ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

i 

j ***************************************** ************ ******* ****** 

j CALL TAPE REWIND COMMAND 

j BR, IF NO PROBLEM 

j SAVE TSSR 

jINC AND CHECK FOR MORE THAN 25 ERRORS 

; REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

jLOOP IF SELECTED 

TRAP 



JSR 


PC, REWIND 


BCS 


130$ 


MOV 


R0,R1 


JSR 


PC,FATCHK 


ERRHRD 


ERRNO, T24RWN. PKTSSR 



130$: CKLOOP 



C$ERHRD 
424 

T24RWN 
PKTSSR 



C$CLP1 



j **************************************************** ************** 
j READ MESSAGE BUFFER EXTENOED STATUS REGISTER ZERO (XSTO) 

5 

| *************************************** ***si* *************** ******* 



MOV 


T24BFR*6,R1 


{PICK UP XSTO 




MOV 


R1.R2 


{SET UP EXPECTED 




BIS 


*eiU,R2 


iSET BOT BIT IN EXPECTED 




CMP 


R1.R2 


{DOES EXP - REC'D 




BEO 


140$ 


l BR, IF EQUAL (OK) 




JSR 


PC.FATCHK 


lINC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRNO, T24B0T.EXPREC 


{TAPE NOT AT BOT AFTER REWIND 








TRAP 


C$ERHRD 






.WORD 


425 






.WORD 


T2480T 






.WORD 


EXPREC 


CKLOOP 




{LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


0256. ,R3 


{RECORD SIZE 




MOV 


FREE.T24RB 


{STARTING READ BUFFER ADDRESS 





140$ 



i ****************************************************************** 

{READ DATA,ACK,CVC-1 COMMAND 
I****************************************************************** 



012737 
012704 



140001 
040700 



040700 



MOV 0140001, T24PK3 
1 >$: MOV OT24PK3.R4 



{READ 0ATA,ACK,CVC-1 COMMAND 
{SET UP R4 WITH PACKET ADDRESS 



fi 



TKFA TK-25 FR 
ST 4: BASIC 


READ DaVa (R5RWj 


5718 


034140 


010337 


040706 


5719 


034144 


010465 


177776 


5720 


034150 


004 737 


017120 


5721 


034154 


016501 


000000 


5722 


034160 


012702 


100204 


5725 


034164 


C20102 




5724 


034166 


001406 




5725 


034170 


004 737 


020102 


5729 


034174 








034174 


104456 






034176 


000652 






034200 


043104 






034202 


011700 




5750 


034204 








034204 


104406 




5751 








5732 








5733 








5734 








5735 








5736 








5737 








5738 


034206 


013701 


040576 


5739 


034212 


010102 




5740 


034214 


052702 


010000 


5741 


034220 


020102 




5742 


034222 


001406 




5743 


034224 


004737 


020102 


5747 


034230 








034230 


104456 






034232 


000653 






034234 


042652 






034236 


016344 




5748 


034240 






5749 


054240 
034240 








034240 


104403 




5750 


054242 


023 727 


002170 


5751 


034250 


002402 




575? 


034252 


004737 


020154 


5753 


034256 







l SR8 M 



SE 





M12 


APR -84 


08:12 PAGE 105-3 


MOV 


R3.T24SZ 


NOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


#SSR!SC!BIT2,RcJ 


CMP 


R1.R2 


BEQ 


170$ 


JSR 


PC.FATCHK 



SEQ 155 



ERRHRD ERRNO , T24TRL , PKTSSR 



f SET UP RECORD SIZE IN PACKET 

f ISSUE COMMAND 

I WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

j SET UP EXPECTED 

j ARE THEY EQUAL 

;BR, IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I TSSR INCORRECT AFTER READ DATA 



170$; CKLOOP 



j LOOP IF SELECTED 



TRAP 
.WORD 

.WORD 
.WORD 

TRAP 



C$ERHRD 
426 
T24TRL 
PKTSSR 

C$CLP1 



t ****************************************************************** 

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

{ 

2 ***************************************** *************** ********** 

,GET MESSAGE BUFFER 

iSET UP EXPECTED 

;SET THE RLL BIT IN EXPECTED 

» ARE THEY EQUAL 

;BR, IF EQUAL CALL IS WELL) 

}INC AND CHECK FOR MORE THAN 25 ERRORS 

I THE RLL BIT WAS NOT SET IN XSTO 

TRAP CIERHRD 
.WORD 427 
.WORD T24L0N 
.WORD EXPREC 



MOV 


T24BFR+6.R1 


MOV 


R1.R2 


BIS 


*6IT12,R2 


CMP 


R1.R2 


BEQ 


180$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO t T24L0N , EXPREC 



180$ 



000031 



999$ 



ENDSUB 



CMP 
BLT 
JSR 



FATFLG.025. 

999$ 

PC.CKDROP 



j >>>>>>>>>>>> end SUBTEST >>>>>>>>>>>> 

L 10052: 

TRAP C$ESUB 
j IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
i TRY TO DROP THE UNIT 



%w\] K B^ R k^%m c ^u^u^ms^ 



O-APR-84 08; 12 



N12 

PAGE 106 



SEQ 156 



5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5768 
5769 
5770 
5771 
5772 



5775 
5774 
5775 
57 76 
5777 
5778 
5779 
5780 
5781 
578? 
57&3 
5784 
5785 
5789 
5790 



5791 
5792 
5793 
5794 
5795 
5796 
5797 
5798 
5799 
5800 
5801 
5802 
5806 
5807 



034256 
034256 
034256 
034260 
034264 
034270 



034274 
034300 
034302 
034 306 
034310 
034310 
03431? 
034314 
034316 
034320 
034320 



034324 
034330 
034332 
034336 
034340 
034340 
034342 
034344 
034346 



104402 

004737 043374 

004737 043240 

004737 043332 



004737 016644 

103407 

00473 7 020102 

010001 

104455 
00O654 
003550 
011666 

012704 040550 



004737 010332 

103407 

004 737 020102 

010001 

104456 
000655 
004 754 
011666 



} ♦• 



TEST 4, SUBTEST 4 

VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT 
(RLS) BITS SET. IT IS VERIFIED THAT THE RESIDUAL BYTE 
COUNT CRBPCR) IN THE MESSAGE BUFFER CONTAINS THE 
PROPER NONZERO VALUE CE.G. THE DIFFERENCE BETWEEN 
THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD 
LENGTH). 



BGNSU6 



JSR 

JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



{ >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4.4; 

TRAP C$BSU6 
{SET UP OTHER COMMAND PACKET 
j SET COMMAND PACKET 
{SET UP OTHER COMMAND PACKET 



t ************ .«■ **************************************** ************* 

! ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

j ****************************************************************** 

j DO INITIALIZE ON CONTROLLER 

j BR IF INIT WAS OK 

CTNC ANO CHECK FOR MCP^ THAN 25 ERROPS 

{CONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP CJERDF 
.WORD 428 
,WORD SFJERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PCFATCHK 


MOV 


R0,R1 


ERRDF 


ERRNO.SFIERR* SFIMSG 



20$; 



MOV 



*T24PACKET,R4 



{SUBROUTINE NEEDS PACKET ADDRESS 



.****************************************************************** 

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

i 

******************************************************************* 



JSR PCWRTCHR 

BCS 241 

JSK PC.FATCHK 

MOV RO.Rl 

ERRHRD ERRNO , WRTMSG , SFIMSG 



{ISSUE WRITE CHARACTERISTICS 

{BR, IF COHMANO ISSUED OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

{SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP CSLRHRD 
. WORD 429 
.WORD WRTMSG 
.WORD SFIMSG 



CZTKFA TK 25 FRT END FUNC #2 MACRO M1200 20-APR-84 08ii2 
TEST 4; BASIC READ DATA (FORWARD ANO REVERSE) 



B13 
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SEU 157 



5808 

5809 
5810 
5811 
5G12 
5813 
5814 
5815 
5816 
5817 
5818 
5819 
5823 



5824 

5625 

5626 
5627 
5828 
5829 
5430 
5831 
5832 
5833 
5634 
5635 
5656 
5837 
5838 
5839 
5640 
5641 
564? 
5643 
5544 
5648 
5649 
5850 



5851 

5652 
5653 
5854 
5855 
58 K *> 
5857 
5858 
5tt59 



054350 
034350 



034352 
034356 
034360 
034362 
034366 
034366 
034370 
034372 
034374 
034376 
034376 
034400 
034404 



034412 
034420 
034424 
034424 
034430 
034434 
034440 
034444 
034450 
034452 
034454 



034460 
034460 
034462 
034464 
034466 
034470 
034470 
034472 



104406 



012737 
012704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000657 
005011 
011700 

104406 



24*. 



CKLOOP 



lLOOP IF SELECTCO 



TRAP 



CICUP1 



jiSSUF REWIND COMMAND TO SELECTED TAPE DRIVE 

i 



004737 010434 

103407 

010001 

004737 020102 

104456 
000656 
042036 

011700 

104406 

012703 000400 

013737 003072 



JSR PC, REWIND 

BCS 301 

MOV R0.R1 

JSR PC.FATCMK 

ERRHRD ERRNO, T24RWN, PKTSSR 



301 j 



040702 



CKLOOP 

MOV 

MOV 



4256.. R3 
FREE.T24RB 



I CALL TAPE REWINO COMMAND 

I BR. IF NO PROBLEM 

I SAVE TSSH 

I INC AND CHECK FOP MORE THAN 25 ERRORS 

■REWIND NOT ACCEPTED 

TRAP CIER**D 

.WORD 430 
.WORD T24RWN 
.WORD PKTSSR 

>LOOP ir SFl ECTED 

TRAP C«CLP1 

tRECORD SIZE 

^STARTING WRITE BUFFER ADDRESS 



WRITE DATA.ACK.CVC-1 COMMAND 



140005 
040700 

040706 
177776 
017120 
OOOOOO 
000200 



020102 



040700 



651: 



MOV 


♦140005, T24PK3 


MOV 


♦T24PK3.R4 


MOV 


R3.T24SZ 


MOV 


R4 # TS06(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


#SSR.R2 


CMP 


R1.R2 


BEQ 


751 


JSR 


PC.F' TCHK 



751: 
1201 



ERRSOFT ERRNO, W9TERR, PKTSSR 



CKLOOP 



jWRITE DATA,*CK,CVC-1 COMMAND 
I SET UP R4 WITH PACKET ADORESS 

I SET UP RECORO SIZE IN PACKET 

i ISSUt COMMAND 

iWAIT FOR SSrf TO SET 

iGET TSSR CONTENTS 

i SET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IF OK 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

iSOFT ERROR, REALLY CHECKING TK 

iREAO DATA COMMANO 

j TSSR INCORRECT AFTER WRITE DATA 



lLOOP IF SELECTED 



TRAP 


CIERSOFT 


.WORD 


431 


.WORD 


WRTERR 


.WORD 


PKTSSR 



TRAP 



CtCLPl 



I ISSUE REWIND COMMANO TO SELECTED TAPE DRlVt 
I 



TEST 4: S B«IC REAODaVa (?&WAr5 



m %m 



20-APR-B4 06tl2 
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SEQ 158 



5860 
5861 
5862 
5863 
5867 



5868 

5869 
5870 
5871 
5872 
5873 
5874 
5875 
5876 
5877 
5878 
5879 
5880 
5881 
5882 
5683 
5884 
5885 
5886 
5887 
5391 



589? 

5893 
5894 
5895 
5896 
5897 
5898 
5899 
5900 
5901 
5902 
5903 
5904 
5905 
5909 



5910 
5911 



034472 
034476 
034500 
034502 
034506 
034506 
034510 
034512 
034514 
034516 
034516 
034520 
0345?4 



034612 
034616 
034620 
034624 
034626 
034630 
034634 
034634 
034636 
034640 
034642 
034644 
034644 



004737 
10340 t 
01000) 
004737 

104456 
000660 
042036 

011700 

104406 

012703 
013737 



010434 
020102 



JSR 
BCS 

MOV 
JSR 
ERRHRD 



130$: CKLOOP 



PC. REWIND 

130* 

R0.R1 

PC.FATCHK 

ERRNU,T24RWN I PKTSSR 



iCALL TAPE REWIND COMMAND 

I BR, IF NO PROBLEM 

j SAVE TSSR 

I INC AND CHECK FOR MORE 

jREWINO NOT ACCEPTED 



THAN 25 ERRORS 



lLOOP IF SELECTED 



001000 

003072 040702 



MOV #512., R3 
MOV FREE,T24RB 



iRECOflD SIZE 
iSTARTING READ 



TRAP 
.WORD 
.WORO 
.WORD 

TRAP 



CIF.RHRD 
432 

T24RWN 
PKTSSR 

CICL.P1 



BUFFER ADDRESS 









j READ 


DATA.ACK, 


CVC-1 COMMAND 






034532 


012737 


140001 040700 




MOV 


♦140001, T24PK3 


iREAO DATA.ACK.CVC-I COMMAND 




034540 


012704 


040700 


165$: 


MOV 


•T24PK3.R4 


iSET UP R4 WITH PACKET ADORESS 




034544 


010337 


040706 




MOV 


R3.T24SZ 


1 SET UP RECORD SIZE IN PACKET 




034550 


010465 


1777/6 




MOV 


R4.TS0BCR5) 


> ISSUE COMMAND 




034554 


004737 


017120 




JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 




034560 


016501 


000000 




MOV 


TSSR(R5),R1 


iGET TSSR CONTENTS 




03456* 


012702 


100204 




MOV 


♦SSR!SC!BIT2,R2 


iSET UP EXPECTED 




034570 


020102 






LMP 


R1.R2 


,APE THEY EQUAL 




034572 


001406 






BEQ 


170* 


iBR. IF OK 




03*574 


004737 


020102 




JSR 


PC.FATCHK 


lINC AND CHECK FOR MORE THAN 25 


ERRORS 


034600 








ERRHRD 


ERRN0.T24TRL.EXPREC 


iTSSR INCORRECT AFTER READ DATA 




034600 


104456 










TRAP 


CIERHRO 


034602 


0O0661 










.WORD 


433 


034604 


043104 










.WORO 


T24TRL 


034606 


016344 










.WORD 


EXPREC 


034610 






1701: 


CKLOOP 




jLOOP IF SELECTED 




034610 


104406 










TRAP 


CICLPl 








iREAO 


MESSAGE BUFFER EXTENDED STATUS 


REGISTER ZERO (XSTO) 





013701 040576 

010102 

052702 040000 

020102 

001406 

004737 020102 

104456 
00O662 
042734 
016344 

0137Q1 Q4Q574 



MOV 


T24BFR*6,R1 


iGET 


MOV 


R1.R2 


iSET 


BIS 


#eni4,R2 


iSET 


CMP 


R1.R2 


iARE 


BEQ 


1801 


iDR, 


JSR 


PC,FATCHK 


lINC 


ERRHRD 


ERRN0.T24L0P.EXPREC 


iTHE 



laoii 



MOV 



T24BFR*4 l Rl 



MESSAGE BUFFER 

UP EXPECTED 

THE RLS BIT IN EXPECTED 

THEY EQUAL 

IF EQUAL CALL IS WELL) 

AND CHECK FOR MORE THAN 25 ERRORS 

RLL BIT WAS NOT SET IN XSTO 

TRAP CIFRHRD 

.WORD 454 
.WORD T24L0P 
,WORD EXPREC 



I PICK UP RESIDUAL tttTE COUNTER 



mv\} K & 



■FkmmwkunnM m S e? 



O-PPR-84 08{12 



D13 
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5912 034650 012702 00O400 

5913 034654 020102 

5914 034656 001406 

5915 034660 004737 020102 
5919 034664 

034664 104456 

034666 000663 

034670 043016 

034672 016344 
3920 034674 

034674 104406 

5921 034676 
034676 
034676 104403 

5922 034700 023727 002170 000031 

5923 034 706 002402 

5924 03471U 004737 020154 

5925 034714 



1901; 



MOV 
CMP 
BEQ 
JSR 
ERRHRD 



CKLOOP 

ENDSUB 



999$: 



CMP 
BLT 
JSR 



♦256, ,R2 

R1.R2 

190$ 

PC.FATCHK 

ERRN0.T24PBP.EXPREC 



FATFLG,*25, 

999$ 

PC.CKDROP 



SEQ 159 



I THIS SHOULD BE THE DIFFERENCE 

lIS THE DIFFERENCE CORRECT 

j BR. IF CORRECT 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

jRBPCR NOT CORRECT 



lLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



j >>>>>>>>>>>> 



TRAP 
END SUBTEST >>»>>> 
Ll0053i 

TRAP 

I IS ERROR COUNT AT 25 
jBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



CIERHRD 
435 
T24PBP 
EXPREC 

CfCLPl 
>>>>>> 

CIESUB 



CZTKFA TK-P5 FRT ENO FUNC $2 
TEST 4 j BASIC READ DATA (FORW/ 


5927 








5928 








5929 








5930 








5931 








5932 








5933 








5934 








5935 








5936 








5937 








5938 








5939 








5940 








5941 








5342 








5943 








5944 


034714 
034714 








034714 


104402 




5945 


034716 


004737 


043374 


5946 


034722 


004737 


043240 


5947 


034726 


004737 


043332 


5948 








5949 








5950 








5951 








5952 








5953 








5954 








5955 


034732 


004737 


016644 


5956 


034736 


103407 




5957 


034740 


004737 


020102 


5961 


034744 


010001 




5962 


034746 








034746 


104455 






034750 


000664 






034 752 


003550 






034754 


011666 




5963 


034756 






5964 


034756 


012704 


040550 


5965 








5966 








5967 








5968 








5969 








5970 








5971 








5972 


034762 


004737 


010332 


5973 


034766 


103407 




59/4 


034770 


004737 


020102 


5978 


034774 


010001 




5979 


034776 








034776 


104456 






0350O0 


000665 






035002 


004 754 






035004 


011666 





MA 



E13 
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SEQ 160 



I ♦ 

j TEST 4, SUBTEST 5 

; VERIFIES THAT READ REVERSE COMMANDS WITH SW6-0 

j OPERATES PROPERLY, THE TAPE IS FIRST REWOUND AND THEN 

i WRITTEN WITH A SERIES Of TEST RECORDS VARING IN 

I LENGTH AND DATA CONTENT. THE TAPE IS THEN READ IN REVERSE 

l SEQUENTIALLY AND THE RESULTS 

jCSTATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 

jEACH READ REVERSE COMMANO IS SET TO THE LENGTH OF THE 

i EXPECTED RECORD. SO NO EXCEPTIONAL CONOITIONS SHOULD 

j OCCUR. 

i 

i 



i - 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



)>>>>>>>>>>>> BEGIN SUBTEST »>>>»>>>>>>> 

T4.5; 

TRAP CJBSUB 
jSET UP OTHER COMMANO PACKET 
I SET COMMANO PACKET 
jSET UP OTHER COMMAND PACKET 



t *** *********************** ********* ** A**************************** 

; ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

; 

l****************************************************************** 

jDO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

tCONTENTS OF TSSR REGISTER 

(FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 436 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


20* 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO. SFIERR, SFIMSG 



20$: 



MOV 



0T24PACKET.R4 



j SUBROUTINE NEEDS PACKET ADDRESS 



»WRITE CHARACTERISTICS COMMANO (CALL TO WRTCHR) 

i 
I****************************************************************** 



JSR PC, WRTCHR 

BCS 24$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG . SF IMSG 



iISSUE WRITE CHARACTERISTICS 

iBR, IF COMMAND ISSUED OK 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

jSAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP CfERHRD 
.WORD 437 
.WORD WRTMSG 
.WORD SFIMSG 



F13 
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TEST 4; BASIC READ DATA (FORWARD AND REVERSE) 



SEQ 161 



5980 


0350O6 








035006 


104406 




5981 








5982 








5983 








5984 








5985 








5986 








5987 








5988 


035010 


004737 


010434 


5989 


035014 


103407 




5990 


035016 


010001 




5991 


035020 


004737 


020102 


5995 


035024 








035024 


104456 






035026 


000666 






035030 


042036 






035032 


011700 




5996 


035034 








035034 


104406 




5997 


035036 


012703 


000400 


5998 


035042 


013737 


003072 


5999 








6OO0 








6001 








6002 








6003 








6004 








6005 








6006 


035050 


012737 


140005 


6007 


035056 


012704 


040700 


6008 


035062 






6009 


035062 


010300 




6010 


035064 


004737 


020374 


6011 


035070 


010337 


040706 


6012 


035074 


010465 


177776 


6013 


035100 


004737 


017120 


6014 


035104 


016501 


000000 


6015 


035110 


012702 


000200 


6016 


035114 


020102 




6017 


035116 


001406 




6018 


035120 


004737 


020102 


6022 








6023 








6024 


035124 








035124 


104457 






035126 


000667 






035130 


005011 






035132 


011700 




6025 


035134 








035154 


104406 




6026 


035136 


005723 




6027 


035140 


022703 


000414 


6028 


035144 


001346 




6029 


035146 








035146 


104406 




6030 


035150 


005743 





24$: 



CKLOOP 



lLOOP IF SELECTED 



TRAP 



CfCLPl 



040702 



040700 



l************************************************* ******** ********* 

I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

J 

;****************************************************************** 



JSR 


PC, REWINO 


iCALL TAPE REWINO COMMAND 




BCS 


301 


»BR, IF NO PROBLEM 






MOV 


R0.R1 


iSAVE TSSR 






JSR 


PC,FATCHK 


j INC AND CHECK FOR MORE 


THAN 25 


ERRORS 


ERRHRD 


ERRN0.T24RWN, PKTSSR 


I REWINO NOT ACCEPTED 


TRAP 
.WORD 
.WORD 
.WORD 


CIERHRD 
438 
T24RWN 
PKTSSR 


CKLOOP 




jLOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


♦256. ,R3 


jRECORD SIZE 






MOV 


FREE.T24R6 


I STARTING WRITE BUFFER 


ADDRESS 





30$ 



l ****************************************************** j *********** 

jWRITE DATA,ACK,CVC-1 COMMAND 

i 
1****************************************************************** 



65* 



MOV 


♦140005. T24PK3 


MOV 


♦T24PK3.R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3.T24SZ 


MOV 


R4,T< JBCR5) 


JSR 


PC.UAlTF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR,R2 


CMP 


R1.R2 


BEQ 


751 


JSR 


PC.FATCHK 



ERRSOFT ERRNO.WRTERR, PKTSSR 



iWRITE DATA.ACK.CVC-1 COMMAND 
j SET UP R4 WITH PACKET ADDRESS 

I SET PATTERN IN CORRECT REGISTER 

iFILL MEMORY WITH RECORD SIZE 

j SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

jWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

jARE THEY EQUAL 

I BR, IF OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

jSOFT ERROR, REALLY CHECKING THE 

iREAD DATA COWANO 

j TSSR INCORRECT AFTER WRITE DATA 



75$ 



80$ 



CKLOOP 

TST 
CMP 
BNE 
CKLOOP 

TST 



CR3)» 
♦268. ,R3 
65$ 



-(R3) 



TRAP 
.WORD 
.WORD 
.WORD 

jLOOP IF SELECTEO 

TRAP 

jBUMP RECORD SIZE 

I END OF RECORD YET 

j BR, IF MORE RECORDS TO WRITE 

jLOOP IF SELECTED 

TRAP 

iSET BACK TO 512. 



CtERSOFT 
439 
URTERR 
PKTSSR 

CICLP1 



C$CLP1 



WFWtf&ii* 


i^PoSHftffiRWwfl A fl8 1 


6031 


035152 


013737 


003072 040702 


6032 








6033 








6034 








6035 








6036 








6037 








6038 








6039 


035160 


012737 


100401 040700 


6040 


035166 


012704 


040700 


6041 


035172 


010337 


040706 


6042 


035176 


010465 


177776 


6043 


035202 


004737 


017120 


6044 


035206 


016501 


OOOOOO 


6045 


035212 


012702 


0O0200 


6046 


035216 


020102 




604 7 


035220 


001406 




6048 


035222 


004737 


020102 


6052 


035226 








035226 


104456 






035230 


000670 






035232 


042366 






035234 


011700 




6053 


035236 








035236 


104406 




6054 


035240 


013702 


003072 


6055 


035244 


010304 




6056 


035246 


162704 


000400 


6057 


035252 


060204 




6056 


035254 


021403 




6059 


035256 


001410 




6060 


035260 


011401 




6061 


035262 


010302 




6062 


035264 


004737 


020102 


6066 


035270 








035270 


104456 






035272 


000671 






035274 


041620 






035276 


016344 




6067 


035300 








035300 


104406 




6068 


035302 


005724 




6069 


035304 


160204 




6070 


035306 


020403 




6071 


035310 


001360 




6072 


035312 


005743 




6073 


035314 


022703 


000400 


6074 


035320 


001322 




6075 


035322 








035322 


104406 




6076 


035324 
035324 








035324 


104403 




6077 


035326 


023727 


002170 000031 


6078 


035334 


002402 




6079 


035336 


004737 


020154 


6080 


035342 







ISE 



5 



0-APR-84 08:12 
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SEQ 162 



MOV 



FREE.T24RB 



i STARTING READ BUFFER ADDRESS 



t **************** ************************************* *** A****** A* * 
t 

j READ REVERSE DATA.ACK COMMANO 

I *********************************************************** ******* 



165$: 



MOV 


#100401, T24PK3 


j READ 


MOV 


♦T24PK3.R4 




jSET l 


MOV 


R3.T24SZ 




»SET l 


MOV 


R4.TSDBCR5') 




jissm 


JSR 


PC.WAITF 




iWAIT 


MOV 


TSSR(R5).R1 




1 GET 


MOV 


♦SSR , R2 




iSET i 


CMP 


R1.R2 




lARE 


BEQ 


170$ 




*BR, 


JSR 


PC.FATCHK 




j INC , 


ERRHRD 


ERRN0.T24W0C, 


.PKTSSR 


jTSSR 



170$ j CKLOOP 



173$: 



MOV 


FREE.R2 


MOV 


R3.K4 


sue 


#256., R4 


ADO 


R2.R4 


CMP 


(R4),R3 


BEQ 


180* 


MOV 


CR4),R1 


MOV 


R3.R2 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T24DTA.EXPREC 



160$: CKLOOP 



190$: 



TST 


(R4)* 


sue 


H2.R4 


CMP 


R4.R3 


BNE 


173$ 


TST 


-CR3) 


CMP 


#256., R3 


BNE 


165$ 


CKLOOP 





999$; 



EN0SU6 



CMP 
BLT 
JSR 



FATFLG.025 

999$ 

PC.CKOROP 



REVERSE DATA.ACK COMMAND 
UP R4 WITH PACKET ADDRESS 
UP RECORD SIZE IN PACKET 
E COMMANO 

FOR SSR TO SET 
TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 
ANO CHECK FOR MORE THAN 25 ERRORS 

INCORRECT AFTER REAU DATA 

TRAP 



I LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
440 
T24W0C 
PKT5SR 

C$CLP1 



j GET BUFFER ADDRESS 

j CURRENT RECORD SIZE 

sFIRST LOCATION IN BUFFER 

i SET POINTER TO FRAME (WURD) 

t CHECK DATA READ CR3-DATA ALSO) 

iBR, IF ALL IS WELL 

iRECD DATA 

I EXPECTED DATA 

»INC ANO CHECK FOR MORE THAN 25 

I DATA READ NOT - WRITTEN 

TRAP 
.WORD 
.WORD 
.WOkP 

lLOOP IF SELECTED 

TRAP 

,BUMP TO NEXT LOCATION 

I GET RID OF BASE ADDRESS 

lENO OF RECORD YET 

tBR, IF NOT AT END OF RECORD 

I BUMP RECORD SIZE 

tENO OF RECORD YET 

»BR. IF MORE RECORDS TO WRITF 

lLOOP IF SELECTED 

TRAP C$CLP1 

j >>>>>>>>>:•>> ENO SUBTEST >>*>>>>>>^>> 

L10054: 

TRAP CSESUO 
j IS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



ERRORS 

C$ERHWD 
441 
T24DTA 
EXPREC 

C$CLP1 



H13 
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Ml 200 20-APR-84 08; 12 PAGE 108 
REVERSE) 



SEQ 163 



6082 
6083 
6084 
6085 
6086 
6087 
6088 
6089 
6090 
6091 
6092 
6093 
6094 



6095 
6096 
6097 
6098 
6099 
6100 
6101 
6102 
6103 
6104 
6105 
6106 
6107 
6111 
6112 



6113 
6114 
6115 
6116 
6117 
6118 
6119 
6120 
6121 
6122 
6123 
6124 
6128 
6129 



6130 

6131 

6132 
6133 



035342 
035342 
035342 
035344 
035350 
035354 



104402 
004737 
004737 
004737 



035360 
035364 
035366 
035372 
035374 
035374 
035376 
035400 
035402 
035404 
035404 



035410 
035414 
035416 
035422 
035424 
035424 
035426 
035430 
035432 
035434 
035434 



004737 
103407 
004737 
010001 

104456 
000673 
004 754 
011666 

104406 



043374 
043240 
043332 



016644 
020102 



004737 
105407 
004737 
010O01 

104455 
000672 
003550 
011666 



012704 040550 



010332 
020102 



i TEST 4, SUBTEST 6 

j VERIFIES THAT READ DATA COMMANDS WITH CVC-1 AND THE 
jSWAP BYTES CSWB) BIT SET OPERATES PROPERLY, THE TEST 
j SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
j THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 

i 
i 
\ - 



BGNSUB 



JSR 
JSR 
JSR 



PCT24RT3 

PC.T24REST 

PC.T24RT2 



!>>>>>>>>>>>> fcEGIN SUBTEST >>>>>>>>>>>> 

T4.6: 

TRAP CIBSIS 
I SET UP OTHER COMMAND PACKET 
j SET COMMANO PACKET 
j SET UP OTHER COMMAND PACKET 



; ******** ************************************************** * ******* 

! ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

i 

I ****************************************************************** 

j DO INITIALIZE ON CONTROLLER 

jBK IF INIT WAS OK 

l INC AND CHECK FOR MORE THAN 25 ERRORS 

, CONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 442 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


20* 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO, SFIERR, SFIMSG 



20$: 



MOV 



♦T24PACKET.R4 



j SUBROUTINE NEEDS PACKET ADDRESS 



;*****************************<******************** A **************** 

jWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

i 
******************************************************************* 



241: 



JSR PC.WRTCHR 

BCS 24$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



i ISSUE WRITE CHARACTERISTICS 

l BR, IF COH NT ISS'JEO OK 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

I SAVE CONTENTS OF TSSR 

jWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

jLOOP IF SELECTED 

TRAP 



CJERHRD 
44 3 

WRTMSG 
SFIMSG 



C*CLP1 



I ****************************************************************** 



113 
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SEQ 164 



004757 
103407 
010001 
0O4737 

104456 
000674 
042036 
011700 



6134 
6135 
6136 
6137 

6138 035436 

6139 035442 

6140 035444 

6141 035446 

6145 035452 
035452 
035454 
035456 
035460 

6146 035462 
035462 104406 

6147 035464 012703 

6148 035470 013737 
6149 

6150 
6151 
6152 
6153 
6154 
6155 

6156 035476 012737 

6157 035504 012704 

6158 035510 

6159 035510 010300 

6160 035512 0O4737 

6161 035516 010337 

6162 035522 010465 

6163 035526 004737 

6164 035532 016501 

6165 035536 

6166 035542 

6167 035544 

6168 035546 
6172 
6173 

6174 035552 
035552 
035554 
035556 
035560 

6175 035562 
035562 

6176 035564 

6177 035566 

6178 035572 

6179 035574 
035574 

6180 035576 

6181 035600 
6182 
6183 
6184 
6185 



j ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

. ****************************************************** ****** ****** 



012702 
020102 
001406 
004737 



104457 
000675 
005011 
011700 

104406 
005723 
022703 
001346 

104406 
005743 
013737 



010434 
020102 



000400 
003072 



150005 
040700 



020374 
040706 
177776 
017120 
000000 
000200 



020102 



040702 



040700 



000414 



003072 040702 



JSR 


PC, REWIND 


»CALL TAPE REWIND COMMAND 




BCS 


30$ 


1 BR. IF NO PROBLEM 






MOV 


R0.R1 


j SAVE TSSR 






JSR 


PC.FATCHK 


l INC AND CHECK FOR MORE 


THAN 25 


ERRORS 


ERRHRD 


ERRN0,T24RWN,PKTSSR 


j REWIND NOT ACCEPTED 


TRAP 
.WORD 
.WORD 
.WORD 


CJERHRO 
444 

T24RWN 
PKTSSR 


CKLOOP 




jLOOP IF SELEC TED 


TRAP 


C*CLP1 


MOV 


*256., R3 


iRECORD SIZE 






MOV 


FREE,T24RB 


j STARTING WRITE BUFFER 


ADDRESS 





30$ 



j ****************************************************************** 

jWRITE DATA.ACK.CVC-l.SWB COMMAND 

i 

, ****************************************************************** 



65$; 



MOV 


#150005, T24PK3 


MOV 


#T24PK3,R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3.T24SZ 


MOV 


R4.TSDBCR5") 


JSR 


PC. WAIT F 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


75$ 


JSR 


PC.FATCHK 



ERRSOFT ERRNO.WRTERR, PKTSSR 



iWRITE DATA,ACK,CVC«1,SWB COMMAND 
j SET UP R4 WITH PACKET ADDRESS 

j SET PATTERN IN CORRECT REGISTER 

I FILL MEMORY WITH RECORD SIZE 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

jWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

;SET UP EXPECTED 

i ARE THEY EQUAL 

tBR, ir OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j SOFT ERROR, REALLY CHECKING THE 

jREAD DATA COMMAND 

»TSSR INCORRECT AFTER WRITE DATA 



75$ 



80$ 



CKLOOP 

TST 
CMP 
BN6 
CKLOOP 

TST 

MOV 



(R35» 
0268. ,R3 
65$ 



-CR3) 

FREE,T24RB 



TRAP 
.WORD 
.WORD 
.WORD 

lLOOP IF SELECTED 

TRAP 

jBUMP RECORD SIZE 

jENO OF RECORD ^ET 

i BR, IF MORE RECORDS TO WRITE 

lLOOP IF SELECTED 

TRAP 

jSET RECORD SIZE BACK TO 512. 

i STARTING READ BUFFER ADDRESS 



CIERSOFT 
445 

WRTERR 
PKTSSR 

CJCLPl 



C5CLP1 



l *******++++******************************************************* 
{READ REVERSE DATA.ACK.SWB COMMAND 
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SEQ 165 



6186 








6187 








6188 








6189 


035606 


012737 


110401 


6190 


035614 


012704 


040700 


6191 


035620 


010337 


040706 


6192 


035624 


010465 


177776 


6193 


035630 


0O4737 


017120 


6194 


035634 


016501 


000000 


6195 


035640 


012702 


000200 


6196 


035644 


020102 




6197 


035646 


001406 




6198 


035650 


0O4737 


020102 


6202 


035654 








035654 


104456 






035656 


0O0676 






035660 


042366 






035662 


016344 




6203 


035664 








035664 


1C4406 




6204 


035666 


013702 


003072 


6205 


035672 


010304 




6206 


035674 


162704 


000400 


6207 


035700 


060204 




6208 


035702 


021403 




6209 


035704 


001410 




6210 


035706 


011401 




6211 


035710 


010302 




6212 


035712 


0O4737 


020102 


6216 


035716 








035716 


104456 






035720 


000677 






035722 


041620 






035724 


016344 




6217 


035726 








035726 


104406 




6218 


035730 


0O5724 




6219 


035732 


160204 




6220 


035734 


020403 




6221 


035736 


001360 




6222 


035740 


005743 




6223 


035742 


022703 


000400 


6224 


035746 


001322 




6225 


035750 








035750 


1O4406 




6226 


035752 
035752 








035752 


104403 




6227 


035 754 


023727 


002170 


6228 


035762 


C02402 




6229 


035764 


004737 


020154 


6230 


035770 







J 

; *********+4**4^*************4+*4a******4+*+*44**+* +4+* ************ 



040700 



165$: 



MOV 


♦110401 .T24PK3 


MOV 


*T24PK3,R4 


MOV 


R3.T24SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


«SSR,R2 


CMP 


R1.R2 


BEQ 


170$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0,T24WDC, EXPREC 



170$! CKLOOP 



173$: 



MOV 


FREE.R2 


MOV 


R3,R4 


sue 


*256.,R4 


ADD 


R2.R4 


CMP 


(R4),R3 


BEQ 


180$ 


MOV 


(R4),R1 


MOV 


R3,R2 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T24DT A, EXPREC 



180$: CKLOOP 



190$: 



TST 


(R4)* 


SUB 


R2.R4 


CiiP 


R4>R3 


BNE 


173$ 


TST 


-CR3) 


CMP 


*256.,R3 


BNE 


165$ 


CKLOOP 





000031 



999$: 



ENDSUB 



CMP 
8LT 
JSR 



FATFl G.025 

999$ 

PC.CKDROP 



I READ REVERSE DATA.ACK.SWB COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

i SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

jWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

»SET UP EXPECTED 

j ARE THEY EQUAL 

|BR. IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 446 
.WORD T24WDC 
.WORD EXPREC 

I LOOP IF SELECTED 

TRAP C$CLP1 

j GET BUFFER ADDRESS 

i CURRENT RECORD SIZE 

iFIRST LOCATION IN BUFFER 

jSET POINTER TO FRAHE (WORD) 

jCHECK DATA READ (R3-DATA ALSO) 

j BR, IF ALL IS WELL 

iRECD DATA 

jEXPECTED DATA 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

iDATA READ NOT - WRITTEN 



TRAP 

.WORD 

.WORD 

.WORD 



C$ERHRD 
447 
T24DTA 
EXPREC 

C$CLP1 



jLOOP IF SELECTED 

TRAP 
jBUMP TO NEXT LOCATION 
(GET RID OF BASE ADDRESS 
lEND OF RECORD YET 
jBR, IF NOT AT END OF RECORD 
iBUMP RECORD SIZE 
t END OF RECORD YET 
j BR. L^' MORE RECORDS TO WRITE 
I LOOP IF SELECTED 

TRAP C$CIP1 

} >>>>>>>>>* »> eno SUBTEST >>>>>>>>*>>> 

L 10055: 

TRAP C$ESUU 
(IS ERROR COUNT AT 25 
j BR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



K13 



CZTKFA TK-25 FRT END FUNC #2 MACRO 
TEST 4. BASIC READ DATA (FORWARD AND 



M1200 20-APR-84 08:12 PAGE 109 
REVERSE) 



SEQ 166 



©232 
6233 
6234 
6235 
6236 
6237 
6238 
6239 
6240 
6241 
6242 
6243 
6244 



6245 
6246 
6247 
6248 
6249 
6250 
6251 
6252 
6253 
6254 
6255 
6256 
6257 
6261 
6262 



6263 
6264 
6265 
6266 
6267 
6268 
6269 
6270 
6271 
6272 
6273 
6274 
6278 
6279 



6280 

6281 

6282 
6283 



J ♦ 



035770 
035770 
035770 
035772 
035776 
036002 



104402 
004737 
004737 
004737 



036006 
036012 
036014 
036020 
036022 
036022 
036024 
036026 
036030 
036032 
036032 



036036 
036042 
036044 
0360W 
036052 
036052 
036054 
036056 
036060 
036062 
036062 



004 737 
103407 
004737 
010001 

104456 
000701 
004754 
011666 

104406 



043374 
043240 
043332 



016644 
020102 



00473/ 
103407 
0C4737 
010001 

104455 
000700 
003550 
011666 



012704 040550 



010332 
020102 



TEST 4, SUBTEST 7 

VERIFIES THAT A READ REVERSE COMMAND READING A RECORD 
LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE- 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
(RLL) BIT SET. 



; - 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4.7: 

TRAP CfBSUB 
;SET UP OTHER COMMAND PACKET 
;SET COMMAND PACKET 
j SET UP OTHER COMMAND PACKET 



. ***************************************************** ***** ******** 

I ISSUE CONTROLLER '"SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

; 

; ****************************************************************** 

1 00 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j CONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 448 
.WORD S^IERR 
.WORD SFIMSG 



JSR 


PC,SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



20$: 



MOV 



0T24PACKET.R4 



I SUBROUTINE NEEDS PACKET ADDRESS 



•**********************************************4********* ********** 

j WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

! 

. ****************************************************************** 



241: 



JSR PC, WRTCHR 

BCS 24* 

JSR PC.FATCHK 

MOV R0,R1 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



jISSLC WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS Of TSSR 

j WRITE CHARACTERISTIC FAIL ED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 



CIERHRD 
449 
WRTM,SG 
SFIMSG 



C$CLP1 



j*********************** ******************************************* 



fi 



•TKFA TK-25 FRT END F 
:ST 4: BASIC READ DA 



6284 
6285 
6286 
6287 
6288 
6289 
6290 
6291 
6292 
6296 



C *2 MACRO M1200 i 
A (FORWARD AND REVERSE 



L13 

!0-APR-84 08 U2 PAGE 109-1 



SEQ 167 



6297 

6298 
6299 
6300 
6301 
6302 
6303 
6304 
6305 
6306 
6307 
6308 
6309 
6310 
6311 
6312 
6313 
6314 
6315 
6316 
6317 
6321 
6322 
6323 



6324 

6325 
6326 
6327 
6328 
6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 



036064 
036070 
036074 
036076 
036100 
036104 
036104 
036106 
036110 
036112 
036114 
036114 
036116 
036122 



004737 
004737 
103407 
010001 
004737 

104456 
000702 
042036 
011700 

104406 
012703 
013737 



036130 
036136 
036142 
036142 
036146 
036152 
036156 
036162 
036166 
036170 
036172 



036176 
036176 
03620O 
036202 
036204 
036206 
036206 
036210 
036214 



012737 
012704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000703 
005011 
011700 

104406 
012703 
013737 



036222 
036230 
036234 



012737 
012/04 
010337 



010434 
017236 



020102 



001000 

003072 040702 



140005 
040700 

040706 
177776 
017120 
OOOOOO 
000200 



020102 



000400 
003072 



100401 
040700 
040706 



040700 



040702 



040700 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

» 

; *********** **** *************************************************** 

I CALL TAPE REWIND COMMAND 

jSEE HOW TS5R IS 

l BR, IF NO PROBLEM 

j SAVE TSSR 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 
30$ s CKLOOP jLOOP IF SELECTED 

TRAP 

jRECORD SIZE 

jSTARTING WRITE BUFFER ADDRESS 



JSR 


PC, REWIND 


JSR 


PC.CNKTSSR 


BCS 


301 


MOV 


R0.R1 


JSR 


PC.FATCHK 



ERRHRD ERRN0,T24RWN,PKTSSR 



CKLOOP 

MOV 
MOV 



♦512. .R3 
FREE.T24RB 



C$ERHRD 
450 

T24RWN 
PKTSSR 

CJCLP1 



f ****************************************************************** 

iWRITE DATA.ACK.CVC-1 COMMAND 

l ****************************************************************** 



65$ 



MOV 


♦140005, T24PK3 


MOV 


♦T24PK3.R4 


MOV 


R3.T24SZ 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


75$ 


JSR 


PC.FATCHK 



ERRSOFT ERRNO.WRTERR, PKTSSR 



75$ 



CKLOOP 

MOV 
MOV 



0256. ,R3 

FREE.T24RB 



jWRITE DATA.ACK.CVC-1 COMMAND 
iSET UP R4 WITH PACKET ADDRESS 

i SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

I WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

j SET UP EXPECTED 

j ARE THEY EQUAL 

j BR, IF OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

I SOFT ^RROR, REALLY CHECKING THE 

j READ DATA COMMANO 

j TSSR INCORRECT AFTER WRITE DATA 

TRAP CJERSOFT 
.UORD 451 
.WORD WRTERR 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP C$CLP1 

jSIZE OF RECORD 

l STARTING READ BUFFER ADDRESS 



j ************************** ****************************** ********** 

t 

j READ DATA.ACK COMMAND 

i 

j****************************************************************** 



MOV 0100401, T24PK3 
165$: MOV *T24PK3,R4 
MOV R3.T24SZ 



j READ DATA.ACK COMMAND 

jSET UP R4 WITH PACKET ADDRESS 

jSET UP RECORD SIZE IN PACKET 



C7TKFA TK-25 FRT END FUNC *£ MACRO M1200 2 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
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SEQ 168 



6337 
6338 
6339 
6340 
6341 
6342 
6343 
6347 



6348 

6349 
6350 
6351 
6352 
6353 
6354 
6355 
6356 
6357 
6358 
6359 
6360 
6361 
6365 



6366 
6367 



6368 
6369 
63/0 
6371 

tsra 



036240 
036244 
036250 
036254 
036260 
036262 
036264 
036270 
036270 
036272 
036274 
036276 
036300 
0.36300 



036302 
036306 
036310 
036314 
036316 
036320 
036324 
036324 
036326 
036330 
03633? 
036334 
036334 
036534 
036334 
036336 
036344 
036346 
036352 



010465 177776 

004737 017120 

016501 000000 

012702 100204 

020102 

001406 

004737 020102 

104456 
000704 
043104 
016344 

104406 



013701 040576 

010102 

052702 010000 

020102 

001406 

004737 020102 

104456 
000705 
042652 
016344 



104403 

023727 002170 

002402 

004737 020154 



000031 



170$: 



MOV R4,TSDB(R5) 

JSR PCUAITF 

MOV TSSR(R5),R1 

MOV *SSR»SC!BIT2,R2 

CMP R1,R2 

BEQ 170$ 

JSR PC, FATCHK 

ERRHRD ERRNO , T24 TRL , EXPREC 



CKLOQP 



I ISSUE COMMAND 

j WAIT FOR SSR TO SET 

l GET T5SR CONTENTS 

j SET UP EXPECTED 

t ARE THEY EQUAL 

}RR, IF OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

jTSSR INCORRECT AFTER READ DATA 

TRAP C5ERHRD 
.WORD 452 
.WORD T24TRL 
.WORD EXPREC 

j LOOP IF SELECTED 

TRAP C$CLPl 



I **************** ************************************************** 

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

j ************************************************ ****************** 

jGET MESSAGE BUFFER (XSTO) 

»SET UP EXPECTED 

j SET THC RLL BIT IN EXPECTED 

tARE THEY EQUAL 

i BR, IF EQUAL (ALL IS WELL) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

; THE RLL BIT WAS NOT SET IN XSTO 

TRAP CIERHRD 

.WORD 453 
.WORD T24L0N 
.WORD EXPREC 



MOV 


T24BFR*6,R1 


MOV 


R1.R2 


BIS 


*eiT12»R2 


rMP 


R.I.R2 


BEQ 


180$ 


JSR 


PC, FATCHK 



ERRHRD ERRNO, T24L0N, EXPREC 



180$ 



999$ 

J ♦ 



END SUB 



CMP 
BLT 
JSR 



FATFLG,*25, 

S99$ 

PC.CKDRUP 



(>>>>>>>>>>>> END SUBTEST >>>>>>>*>>>> 

L 10056: 

TRAP C$ESUB 
5 IS ERROR COUNT AT 25 
i BR, IF LESS THAN 25 
{TRY TO DROP THE UNIT 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 



SEU 169 



6374 
6375 
6376 
6377 
6378 
6379 
6380 
6381 
6382 
6383 
6384 
6385 03635^ 

03635?. 

036352 
6336 036354 
6387 03636^ 
6388 
6389 
6390 
6391 

6392 036366 

6393 036370 

6394 036374 

6395 036400 

6396 036404 
6397 

6398 
6399 
6400 
6401 
6402 
6403 

6404 036410 004737 

6405 036414 103407 

6406 056416 004 737 

6410 036422 010001 

6411 036<24 
036424 104455 



03^426 



104402 
012737 
005737 



000240 
000137 
004737 
004 737 
00473V 



000706 
003550 
011666 



036430 
036432 

6412 036434 

6413 036434 
6414 
6415 
6416 
6417 
6413 
6419 
6420 

6421 036440 

6422 036444 

6423 036446 

6427 036452 

6428 036454 
036454 1044 56 
056456 000707 



004737 
103407 
004 73 7 
010001 



000000 
00310C 



037010 
043374 
043240 
043332 



016644 
020102 



012704 040550 



010332 
020102 



040726 



iTEST 4, SUBTEST 8 

i VERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA 
BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
THE PROPER ERROR STATUS WITHOUT MOVING TAPE 

i 
i - 



9$ 



BGNSUB 



MOV 
TST 
BEQ 



0CT24DLY 

KTFLG 

10$ 



DIALOG NXM PATCH 



10$ 



NOP 
JMP 
JSR 
JSR 
JSR 



180$ 

PC.T24RT3 
PC.T24REST 
PC.T24RT2 



, >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4.8: 

TRAP C$BSltB 
, ADDRESS BITS FOR LATER 
j CHECK FOR Kill 
jBR, IF NO KT11 



{REMOVE WHEN NXM IS FIXED 

iJUHP IF KTll 

{SET UP OTHER COMMAND PACKET 

j SET COMMAND PACKET 

{SET UP OTHER COMMAND PACKET 



******************************************************************* 

! ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

J 

j *+***+*+**********+********++*+**++***++************************** 

{DO INITIALIZE ON CONTROLLER 

5 OR IF INIT WAS OK 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 454 
.WORD SFJERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


201 


JSR 


PC.FATCHK 


MOV 


RO.Rl 


ERRDF 


ERRNO.SFIERR, SFIMSG 



20$: 



MOV 



0T24PACKET.R4 



j SUBROUTINE NEEDS PACKET ADDRESS 



• ****.» ************************************************************* 

{WRITE CHARACTERISTICS COMMAND CCAl i TO WRTCHR) 

I 4*************4.* **************************************** ********«.« 



JSR PC.WRTCHR 

BCS 24$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNU » WR I MSG » SFIMSG 



{ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 
»WURD 455 



C/TKFA TK 25 FRT END f UNC #2 MACRO M1200 20-APR-84 08il2 
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SEQ 170 



6429 

6430 
6431 
643? 
6433 
6434 
6435 
6436 
6437 
643d 
6439 
6440 
6441 
6445 



6446 

644 7 
6448 
6449 
6450 
6451 
645? 
6453 
6454 
6455 
6456 
6457 
6458 
6459 
6460 
6461 
6462 
6463 
6464 
6465 
6466 
6470 



6471 

64 7? 

6473 
64 74 
6475 
64 76 
6477 
6478 



036460 
036462 
036464 
036464 



036466 
0364 72 
0364 76 
036500 
036502 
036 506 
036506 
036510 
036512 
036514 
036516 
036516 
036520 
036524 



036532 
036540 
036544 
036544 
036550 
036554 
036560 
036564 
036570 
036572 
036574 

036600 
036600 
036602 
036604 
036606 
036610 
036610 
036612 
036616 
036622 
056626 
036632 
0366 34 
036640 



004754 
011666 

104406 



0O4737 
004737 
103407 
010001 
004737 

104456 
000710 
042036 
011700 

104406 
012703 
013737 



012737 
012704 

010337 
010465 
0O4737 
016501 
012702 
020 102 
001406 
004737 

104457 
000711 
005011 
011700 

104406 
012703 
012701 
012702 
004737 
103402 
000137 
010137 



24$: 



CKLOOP 



lLOOP IF SELECTED 



.UORD 
.WORD 

TRAP 



WPTMSC 
SFIMSC 

CICLP1 



ISSUE REWINO COMMANO TO SELECTEO TAPE DRIVE 



0104 34 
017256 



020102 



JSR 


PC, REWINO 


JSR 


PC.CHKTSSR 


BCS 


301 


MOV 


R0.R1 


JSR 


PC.FATCW 


ERRHRD 


ERRN0.T24RWN, PKTSSR 



I CALL TAPE REWINO COMMAND 

iSEE HOW TSSR IS 

I BR, IF NO PROBLEM 

i SAVE TSSR 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

jREWINO NOT ACCEPTED 



301 1 



000400 

003072 040702 



CKLOOP 

MOV 
MOV 



jLOOP IF SELECTED 



•256. ,R3 

FREF,T24Rfl 



iRECORO SIZE 
iStARTINC WRITE 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHWO 
456 

T24RWN 
PKTSSR 

CtCLPl 



BUFFER ADORESS 



WRITE DATA.ACK.CVC-l COMMAND 



140005 040700 
040700 

040706 
177776 
017120 

oooooo 

000200 



020102 



651 j 



75li 



MOV 


#140005. T24PK3 


IWRITE DATA.ACK.CVC-1 C0TT1AND 


MOV 


♦T24PK3.R4 




iSET l»< R4 WITH PACKET AOORESS 


MOV 


R3.T24S7 




i SET UP RECORO SI/E IN PACKET 


MOV 


R4.TS06(R5) 




i ISSUE COWiAND 


JSR 


PC.WAITF 




iWAIT FOR SSR TO SET 


MOV 


TSSR(R5).R1 




iGET TSSR CONTENTS 


MOV 


♦SSR.R2 




iSET UP EXPECTED 


ct*> 


Ri,R£ 




lARE TMEY E(XmL 


BEQ 


75> 




iBR, IF OK 


JSR 


PC.FATCh* 




j INC AND CKCCK FOR MORE THAN 25 ERRORS 


ERRSOFV 


fcRRN0,WRTERR 


, PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA 

TRAP CIERSOF 
.WORD 457 
.WORD WRTERR 
,WORO PKTSSR 



CKl.OOP 



iLOOP IF SELECTED 



000400 
160OOO 

177776 
017276 

057010 
040702 



TRAP 



CJCLPi 



761 1 



MOV 


•256. ,R3 


MOV 


♦160000. Rl 


MOV 


•177776, R? 


JSR 


PC.XNXM 


BCS 


761 


JMP 


1801 


MOV 


R1.T24RB 



iRECORO SI/E 

.START POSSIBLE NXM AOORESS 

it.© POSSIBLE NXM AOORESS 

iCmLL NXM FINOER ROUTI*# 

i3R IF NXM AOORESS FOUND 

iJMF OVER CAN'T t IND NXM 

ii>TArtTING READ REVERSE BU*>ER AQDRfcUS 



Kir** 'MhFkmm fa»M$*m m&*i 



O-APR-64 08il2 
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SEQ 171 



64 79 
6480 
6481 
6482 
6485 
6484 
6485 
6486 
6487 
6488 
6489 
6490 
6491 
6492 
6493 
6494 
6495 
6496 
6497 
6496 
6499 
6500 
6504 



6505 

6506 
6507 
6508 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6522 



6523 
6524 



6525 
6526 
652 7 

6528 











jREAD 


REVERSE 


DATA.ACK COMMAND 








056644 


013737 


040 7?6 


040704 




MOV 


T24DLY # T24RB*2 




iGET BITS 16 ANO 17 




036652 


012737 


100401 


040700 




nov 


♦10O401.T24PK3 




iREAO REVERSE DATA,ACK COHiANO 




036660 


0J2704 


040700 




165*1 


MOV 


♦T24PK3.R4 




iSET UP R4 WITH PACKET ADORESS 




036664 


0X2/37 


000400 


040706 




MOV 


♦256,,T24S* 




1 SET UP RECORD SUE IN PACKET 




036672 


010465 


177776 






NOV 


R4,TS06(R5) 




1 ISSUE COMMAND 




036676 


00473? 


017120 






J5R 


PC.WAITF 




jWAIT FOR SSP TO SET 




036702 


016501 


000000 






MOV 


TSSR(R5),R1 




,GET TSSR CONTENTS 




036706 


012702 


104210 






MOV 


♦SS«!NXMISC!BIT5 


R2 


iSET UP EXPECTED 




036712 


020102 








CMP 


Ri,R2 




lAPE THEY EQUAL 




036714 


001417 








BEQ 


1701 




jBR, IF OK 




036716 


062737 


000001 


040726 




AOO 


•1.T24DLY 




jNEXT BUNCH OF MEMORY 




036724 


022737 


000100 


040726 




CMP 


• 100.T24DLY 




iTOO MUCH MEMORY 




036732 


001402 








BEQ 


166$ 




iBR IF OVER 




036734 


000137 


056374 






JMP 


101 




jTRY AGAIN 




036740 


004737 


020102 




1681 j 


JSR 


PC.FATCHK 




lINC ANO CHECK FOR MORE THAN 25 


ERRORS 


036744 










ERRHRD 


ERRN0.T24NXM.PKTS5R 


iTSSR INCORRECT AFTER READ DATA 




036744 


104456 














TRAP 


CIERHRD 


036746 


000712 














.WORD 


456 


036750 


041141 














.WORD 


T24NXM 


036752 


0U700 














,U0RD 


PKTSSR 


036 754 








1701: 


CKLOOP 






lLOOP TF SELECTED 




036754 


104406 














TRAJ-* 


CICLP1 










iREAD 


MESSAGE 


BUFFER EXTENDED STATUS 


REGISTER ZERO (XSTO) 





036756 
036762 
036 764 
036770 
036772 
036774 
037000 
037000 
037002 
037004 
03 7006 
057010 
037010 
037010 
0*7010 
037012 
03 7020 
037022 
037026 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000713 
042734 
016344 



104403 
023727 
002*02 
004737 



040576 
040000 

020102 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRD 



T24BFR.6.R1 

R1.R2 

♦BIT14.R2 

R1.R2 

180* 

PC.FATCh* 

fcRRN0,T24LaP,EXPRfcC 



iSET 
l ARE 

iBR. 



1601, 



002170 000031 
020154 



9991 i 



ENOSUB 



CMP 

BtT 
JSR 



iGET MESSAGE BUFFER 
iSET UP EXPECTED 

THE RLS BIT IN EXPECTED 
THEY EQUAL 

IF EOUAL CALL IS WELL) 
i INC ANO LHECK FOR MORE THAN 25 ERRORS 
j THE RLL BIT WAS NOT SET IN XSTO 

TRAP ClER^D 

.WORD 459 
.WORD V24L0P 
.WORD FXPREC 



>*>■»>*•»>■»»>» 



f ATFLG,#25, 
9991 

PC*CKDRQP 



!>>>>>>>>>>>> ENO SUBTEST 

L 10057: 

TRAP 
lIS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
iTRY TO DROP THE UNIT 



CiE^LC 



D14 



HW\i K Bihi*kWoWi?fauN&*m m®stf° - APR - 84 08,ls PrtGE 



111 



SEQ 172 



6530 
6531 

653? 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6%41 
6542 



6543 
6544 
6545 
6546 
65*17 
6546 
6549 
6550 
6551 
6552 
6553 
6554 
6555 
6559 
6560 



6561 
656? 
6563 
6564 
6565 
6566 
656 7 
6568 
6569 
65 70 
6571 
6572 
6576 
6577 



6578 

6579 

S r .80 

esai 



037026 
03 7026 
037026 
037030 
03 7034 
037040 



037044 
037050 
037052 
037056 
03 7060 
037060 
037062 
057064 
037066 
037070 
037070 



037074 
037100 
037102 
037106 
037110 
037110 
037U2 
037114 
037116 
037120 
037120 
03712? 
037130 



TEST 4, SUBTEST 9 

VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A 
FUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS 
CILA) ERROR BIT SET. 



10440*? 

004737 043374 

004737 043240 

004737 043332 



BGNSUB 



JSR 
JSR 

JSR 



PC»T24RT3 
PC, T24REST 
PC.T24RT2 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4,9j 

TRAP CIBSUB 
I SET COMMAND PACKET UP CLEAR 
i SET COMMANO PACKET 
iSET UP OTHER COMMAND PACKET 



004737 016644 

103407 

004737 020102 

010001 

104455 
000714 
003550 
011666 

012704 040550 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

****************************************************************** 

lDO INITIALIZE ON CONTROLLER 

I BR IF INIT WAS 0* 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

iCONTENTS OF TSSR REGISTER 

iFATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 460 
.WORD SF1ERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


201 


JSR 


PC.FATCHK 


MOV 


R0,R1 


ERRDF 


ERRN0.SFIERR.SF1MSG 



20*1 



MOV 



♦T24PACKET.R4 



iSUBROUTINE NEEDS PACKET ADORESS 



iWPITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

» 

; ** ***************************** *********************************** 



004737 010332 

103407 

0O4737 020102 

010001 

104456 
000715 
004754 
011666 



JSR PC.WRTCHR 

BCS 241 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTM5G , SF IMSG 



104406 
013737 
012/37 



241: 



003072 
177700 



040702 
040704 



CKLOOP 

HOV 
MOV 



rREE,T24RB 
0177700, T24RB»2 



iISSUE WRITE CHARACTERISTICS 

iBR. IF COMMAKO ISSUED OK 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

I SAVE CONTENTS OF TSSR 

I^JRITE CHARACTERISTIC FAILEO 

TRAP CIERHRD 

,WOR0 461 
.WORD WRTMSG 
.WORD Sf rMSG 

l LOOP IF SELECTED 

TRAP C$CIPI 

I ILLEGAL STARTING READ BUFFER ADDRESS 

iCREATE ILLEGAL ADDRESS 



E14 



!iEU 173 



6582 








6583 








6584 








6585 








6586 








6587 








6588 


037136 


012737 


140001 040700 


6589 


037144 


012704 


040700 


6590 


037150 


012737 


000400 040706 


6591 


037156 


010465 


177776 


6592 


037162 


004737 


017120 


6593 


037166 


016501 


000000 


6594 


037172 


012702 


100206 


6595 


037176 


020102 




6596 


037200 


001406 




6597 


037202 


004737 


020102 


6601 


037206 








037206 


104456 






037210 


000716 






037212 


041052 






037214 


011700 




6602 


037216 








037216 


104406 




6603 








6604 








6605 








6606 








6607 








6608 








6609 








6610 


037220 


013701 


040576 


6611 


037224 


010102 




6612 


037226 


052702 


000400 


6613 


037232 


020102 




6614 


037234 


001406 




6615 


037236 


004737 


020102 


6619 


037242 








037242 


104456 






037244 


000717 






037246 


041302 






037250 


016344 




6620 


037252 






6621 


037252 

037252 








037252 


104403 




66 P.? 


037254 


023727 


002170 000031 


6623 


037262 


002402 




6624 


037264 


004737 


020154 


6625 


037270 







I LEGAL MODE .ACK.CVOl, READ COMMANO 

J 

j LEGAL M00E,ACK,CVC-1,READ COMMAND 

jSET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

I ISSUE COrtiAND 

IWAIT FOR SSR!BIT1»BIT2 TO SET 

jGET TSSR CONTENTS 

jSET UP EXPECTED 

j ARE THEY EQUAL 

I BR, IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

jTSSR INCORRECT AFTER READ DATA 

TRAP CIERHRD 
.WORD 
.WORD 
.WORD 
lLOOP IE SELECTED 

TRAP 



MOV 


♦140001, T24PK3 


MOV 


*T24PK3,R4 


MOV 


♦256. .T24SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR!SC!BIT1!BIT2,R2 


CMP 


Rl,R2 


BEQ 


75$ 


JSR 


PC.FATCHK 



75$ 



ERRHRD ERRN0,T24W0ti,PKTSSR 



CKLOOP 



462 

T24W0G 

PKTS5R 



CfCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 



MOV 


T24BFR*6,R1 


MOV 


R1.R2 


BIS 


♦BIT8.R2 


CMP 


R1.R2 


BEQ 


180$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T24ILA.EXPREC 



180$: 



ENDSU6 



iGET MESSAGE BUFFER 

I SET UP EXPECTED 

iSET THE ILA BIT IN EXPECTED 

I ARE THEY EQUAL 

iBR. IF EQUAL (ALL IS WELL) 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

I THE ILA BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 

.WORD 463 
.WORD T24ILA 

.WORD EXPREC 



*>>>>>^>*>>> 



999$ j 



CMP 


FATH.G.025. 


BIT 


999$ 


JSR 


PC.CKDROP 



,>>>>>>*>>>>> END SUBTEST 

L10O60: 

TRAP 
iIS ERROR COUNT AT 25 
,BR, IF LESS THAN 25 
i TRY TO DROP THE UNIT 



CIESUB 



F14 



C/TKFA TK-25 FRT END FUNC *2 MACRO M1200 20-APR-84 08:12 
TEST 4; BASIC READ DATA (FORWARD AND REVERSE) 
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SE« 174 



6627 
6628 
6629 
6630 
6631 
6632 
6633 
6634 
6635 
6636 
6637 
6638 
6639 
6640 



6641 
6642 
6643 
6644 
6645 
6646 
6647 
6648 
6649 
6650 
6651 
6652 
6653 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 
6665 
6666 



6667 
6668 
6669 
66 70 
66 71 
6672 
66 73 
6674 
66 75 
6676 
6677 
66 78 
6682 
6683 



037270 
037270 
037270 
037272 
037300 



037304 
037306 
037312 
037316 
037322 



037326 

037332 
037334 
037540 
037342 
037342 
037344 
037346 
037350 
037352 
037352 



037356 
037362 
037364 
037370 
037372 



TEST 4, SUBTEST 10 

VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
NONCXISTANT MEMORY CAUSES RECOVERABLE ERROR 
TERMINATION CTC-4), WITH THE NXM BIT SET IN THE TSSR, AND 
THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 



104402 

012737 000000 040726 

005737 003100 



000240 

000137 037544 

004737 043374 

004737 043240 

004737 043332 



00^737 016644 

103407 

004 737 020102 

010001 

104455 
000720 
003550 
011666 

012704 040550 



004737 010332 

103407 

004 73 7 020102 

010001 



9*: 

J 
i 
* 

10$ 



BGNSUB 



MOV 
TST 
BEQ 



♦0,T24DLY 

KTFLG 

10$ 



DIALOG NXM PATCH 



NOP 

..tip 
JSR 
JSR 
JSR 



80$ 

PC.T24RT3 
PC.T24REST 
PC.T24RT2 



!>*>>>>>>>>>> BEGIN SUBTEST •»>>>>>*>>> ■» > 

T4.10: 

TRAP C$BSUB 

} SET BITS 16 AND 17 
iCHECK FOR KT11 
iBR, IF NO KT11 



1 REMOVE WHEN NXM IS FiyED 
jJUMP IF KT11 (SKIP TEST) 
jSET COMMAND PACKET UP CLEAR 
1 SET COMMAND PACKET 
I SET UP OTHER COMMANO PACKFT 



!****************************************************************++ 

I ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

1 
,*******+*************************************«******************** 

1 DO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

1 INC AND CHECK FOG MORE THAN 25 ERRORS 

iCONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 

.WORD 464 
.WORD SFItMP 
.WORD SF T MSG 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$; 



MOV 



♦T24PACKET.R4 



» SUBROUTINE NEEDS PACKET ADDRESS 



j WRITE CHARACTERISTICS COMMANO (CALL TO WflTCHR) 

i 

J****************************************************************,* 



JSR PC.WRTCHR 

BCS 24 1 

JSR PC.FATCHK 

MOV RO.Rl 

ERRHRD ERRNO , WR TMSG , SF 1MSG 



1 ISSUE WRITE CHARACTERISTICS 

I BR, IF COMMAND ISSUED OK 

I INC AND CHECK F0« MORE THAN 2b ERRURS 

iSAVfc CONTENTS Of TSSR 

, WRITE CHARACTERISTIC FAILED 



CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 20-APR-84 06; 12 
TEST 4; BASIC READ DATA (FORWARD AND REVERSE) 



G14 
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6684 

6685 
6686 
6687 
6688 
6689 
6690 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 
6700 
6701 
6702 
6703 
6704 
6705 
6706 
6707 
6708 
6709 
6710 
6711 
6715 



6/16 

6717 
6718 



6719 
6720 
6721 
6722 



037372 
037374 
037376 
037400 
03 7402 
037402 
037404 
037410 
037414 
037420 
037422 
037426 



03743? 
037440 
037446 
037452 
037460 
037464 
0374 70 
03/474 
037500 
0375O2 
037504 
037512 
037520 
037522 
037526 
037532 
037532 
037534 
037536 
037540 
037542 
037542 
037544 
037544 
037544 
037544 
037546 
037554 
037556 
037.562 



104456 
000721 
004754 
011666 

104406 
012701 
012702 
004737 
103402 
OO0137 
010137 



013737 
012737 
012704 
012737 
01O465 
004737 
016501 
012702 
020102 
001417 
062737 
022737 
001402 
000137 
004737 

104456 
0OO722 
041141 
011700 

104406 



104403 
023727 
002402 
004737 



160000 
177776 
017276 

037544 
040702 



040726 
140001 
040700 
000400 
177776 
017120 
OOOOOO 
104210 



000001 
000100 

037312 
020102 



24$; 



CKLOOP 



MOV 


$160000, Rl 


MOV 


0177776, R2 


JSR 


PC.XNXM 


BCS 


76$ 


JMP 


180* 


MOV 


R1.T24RB 





SEQ 175 


TRAP 


C$ERHRD 


.WORD 


465 


.WORD 


WRTMSG 


.WORD 


SFIMSG 


,LOOP IF SELECTED 




TRAP 


CICLP1 


I START POSSIBLE NX' ADDRESS 




jENO POSSIBLE NXM ADDRESS 




iCALL NXM FINDER ROUTINE 




jBR IF WE FOUND NXM 




lJUMP OVER, CAN'T FIND NXM 




t STARTING READ BUFFER ADDRESS 





040704 
040700 

040706 



040726 
040726 



76*: 

I 

jREAD, ACK, CVC-1, COMMANO 

J 

, MEMORY BITS 16 AND 17 

jREAD, ACK, CVC-1, COMMAND 

»SET UP R4 WITH PACKET ADORESS 

I SET UP RECORD SIZE IN PACKET 

, ISSUE COMMAND 

iWAIT FOR SSR!BIT1!BIT2 TO SET 

>GET TSSR CONTENTS 

i5ET UP EXPECTED 

jARE THEY EQUAL 

j BR, IF OK 

iNEXT BUNCH OF MEMORY 

jTOO MUCH MEMORY 

lEND OF LINE 

, TRY AGAIN 
50$: JSR PC.FATCHK j INC AND CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER READ DATA 

TRAP CtERHRD 
.WORD 466 
.WO«D T24NXM 
.WORD PKTSSR 

jLOOP IF SELECTED 

TRAP C$CLP1 



MOV 


T24DLY,T24RBv? i 


MOV 


0140001, T24PK3 j 


MOV 


0T24PK3.R4 , 


MOV 


0256..T24S2 , 


MOV 


R4,TSDe(R5) , 


JSR 


FJ.WAITF , 


MOV 


TSSR(R5),R1 i 


MOV 


0SSR!SCJNXM»BIT3,R2 i 


CMP 


R1,R2 j 


BEQ 


751 j 


ADD 


♦1.T24DLY , 


CMP 


0100,T24DLY » 


BEQ 


50$ i 


JMP 


10$ i 


JSR 


PC.FATCHK j 


ERRHRD 


ERRN0,T24NXM, PKTSSR s 



75$: 

80$: 
180$ 



CKLOOP 
ENOSUB 



002170 000031 
020154 



999$ 



CMP FATFLG.025. 

BLT 999$ 

JSR PC.CKDROP 



;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L1006L: 

TRAP C$ESU6 
jIS ERROR COCNT AT 25 
iBR, IF LESS THAN 25 
,TRY TO DROP THE UNIT 



CZTKFA TK-25 FRT END TUNC $2 
TEST 4 j BASIC READ DATA (FORWARD 



MACR 



AND 



H14 

M1200 20-APR-84 08:12 PAGE 113 



SEQ 176 



6 724 



6727 
6728 
6729 
6730 
6731 
6732 
6733 
6734 
6735 
6736 



6737 
6738 
6739 
6740 
6741 
6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
6753 
6754 



6755 
6756 
6757 
6758 
6759 
6760 
6761 
6762 
6763 
6764 
6765 
6766 
6770 
6771 



b//2 

6//3 
6774 
6775 



037562 
037562 
037562 
037564 
037570 
037574 



037600 
03^604 
037606 
C37612 
037614 
037614 
037616 
037620 
037622 
037624 
037624 



037630 
037634 
037636 
037642 
037644 
037644 
037646 
037650 
037652 
03 7654 
037654 



104402 

004737 043374 

004737 043240 

004737 043332 



0O4737 016644 

103407 

0O4737 020102 

010001 

104455 
000723 
003550 
011666 

012704 040550 



004737 010332 

103407 

004737 020102 

010001 

104456 
000724 
004 754 
01 "666 

104406 



j TEST 4, SUBTEST 11 

iVERIFIES THAT A READ REVERSE COMMANO ISSUED WHILE THE 
j TAPE IC ftT BOT RESULTS IN FUNCTION REJECT TERMINATION 
j WITH THE NONEXECUTABLE FUNCTION CNEF) ERROR BIT SET 

i 
J 
; 
{ - 

BGNSUB ,>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4.ll: 

TRAP C*BSUB 
j SET COMMANO PACKET UP CLEAR 
j SET COMMANO PACKET 
jSF.T UP OTHER COMMANO PACKET 

t****************************************************************** 

iISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

i 

{ ****************************************** ************** ********** 

iDO INITIALIZE ON CONTROLLER 

I BR IF INIT WAS OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

^CONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDE 
.WORD 467 
.WORD SFIERR 
.WORD SKIMSG 



JSR 


PC.T24RT3 


JSR 


PC.T24REST 


JSR 


PC.T24RT2 



JSR 


PCSCFJNIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


RO.Rl 


ERRDF 


ERRNO.SFlERR f SFIMSG 



20$ t 



MOV 



I SUBROUTINE NEEDS PACKET ADDRESS 



*T24PACKET,R4 

******************* *********************************************** 

WRITE CHARACTERISTICS COMMANO CCAl L TO WRTCHR) 

******************************* *********************** ^ *****«^« ¥ «« 



24 $5 



JSR PC, WRTCHR 

BCS 24$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO.WRTMSG.SFIMSG 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 

|BR, IF COMMANO ISSUED OK 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

»SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

jLOOP iV SELECTED 

TRAP 



CtERHRD 

468 

WRTMbG 

SFIMSi, 



C*CLPl 



j *********************************************** ******************* 



^ rA 4! K B^I^E^°D^ C C?6RWARg^8 HlftM -™-" ° 6 ' 12 PAGE 



114 
113-1 



SEQ 177 



6776 
6777 
6778 
6779 

6780 037656 

6781 037662 

6782 037666 

6783 037670 

6784 037672 

6788 037676 
037676 
037700 
037702 
037704 

6789 037706 
037706 

6790 037710 

6791 037714 
6792 

6793 
6794 
6795 
6796 
6797 
6798 

6799 037722 

6800 037730 

6801 037734 

6802 037734 

6803 037740 

6804 037744 

6805 037750 

6806 037754 

6807 037760 

6808 037762 

6809 037764 
6B13 037770 

037770 
037772 
037774 
037776 

6814 0,0000 
040000 

6liib 

6816 

6817 

6818 

6819 

6820 

6821 

6822 04C002 

6823 040006 

6824 040010 

6825 040014 

6826 040016 
682 7 040020 
6831 040024 



004737 
004737 
103407 
010001 
004737 

104456 
000725 
042036 
011700 

104406 
012703 
013?37 



012737 
012704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000726 
041501 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004 737 



010434 

017236 



020102 



000400 
003072 



100401 
040700 

040706 
177776 
017120 
000000 
100206 



020102 



040576 
002000 

020102 



040702 



040700 



I ISSUE REWIND COMMAND 70 SELECTED TAPE DRIVE 

i 



JSR 


PC, REWIND 


iCALL TAPE REWIND COMMAND 




JSR 


PC.CHKTSSR 


,SEE HOW TSSR IS 






BCS 


30$ 


|BR, IF NO PROBLEM 






MOV 


R0.R1 


1 SAVE TSSR 






JSR 


PC.FATCHK 


j INC AND CHECK FOR MORE 


THAN 25 


ERRORS 


ERRHRD 


ERRN0.T24RWN, PKTSSR 


I REWIND NUT ACCEPTED 


TRAP 
.WORD 
.WORD 
.WORD 


ClhRHRD 
469 

T24RWN 
PKTSSR 


CKLOOP 




lLOOP IF SELECTED 


TRAP 


CICLPl 


MOV 


♦256,, R3 


jRECORD SIZE 






MOV 


FREE.T24RB 


j STARTING WRITE BUFFER 


ADDRESS 





30* 



i READ REVERSE DATA.ACK COHMANO 

i 

;*********** ******************** +**+ ********************* ******* *** 



65$ 



MOV 


•100401, T24PK3 


MOV 


0T24PK3.R4 


MOV 


R3.T24SZ 


MOV 


R4.TSD6CR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


♦SSR!SC!BIT1!BIT2,R2 


CMP 


R1.R2 


BEQ 


75$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T24WDE, PKTSSR 



I READ REVERSE DATA,ACK COMMAND 
|SET UP R4 WITH PACKET ADDRESS 

j SET UP RECORD SIZE IN PACKET 

» ISSUE COMMAND 

iWAIT FOR SSR TO SET 

,GET TSSR CONTENTS 

I SET UP EXPECTED 

i ARE THEY EQUAL 

iBR, IF OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

jTSSR INCORRECT AFTER READ DATA 



75$ 



CKLOOP 



lLOOP IF SELECTED 



TRAP 
.WO«D 
.WORD 
.WORD 



TRAP 

****************************************************************** 

READ MESSAGE BUFFER EXTENOED STATUS REGISTER ZERO (XSTO) 

******************************** 4 ********************************* 

iGET MESSAGE BUFFER 

iSET UP EXPECTED 

I SET THE NEF BIT IN EXPcClEO 

I ARE THEY EQUAL 

t 6R, IF EQUAL (ALL IS WELL) 

i INC AND CHECK FOR MORE THAN 25 

jTHE RLL BIT WAS NOT SET IN XSTO 



C$tRHRD 
4?0 
T 24 WOE 
PKTSSR 

CICLPl 



MOV 


T24BFR*6,R1 


MOV 


R1.R2 


BIS 


♦eirio,R2 


CMP 


R1.R2 


BEQ 


180$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0,T24NEF,LXPREC 



ERRURS 



J 14 



CZTKFA TK-25 FRT ENO FUNC <»2 MACRO M1200 20-APR-84 08:12 

TEST 4; BASIC READ DATA (FORWARD AND REVERSE) 
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SEQ 178 



040024 104456 

040026 OC0727 

040030 040730 

040032 016344 



TRAP 
.WORD 
.WORD 
.WORD 



6832 040034 








180$: 






6833 040034 










ENDSUB 




040034 














040034 


104403 












6834 040036 


023727 


002170 


000031 




CMP 


FATFLG.025, 


6835 040044 


002402 








BLT 


9991 


6836 040046 


004737 


020154 






JSR 


PC.CKDROP 



CIERHRD 

471 

T24NEF 
EXPREC 



6837 040052 



999*: 



.>>>>>>>>>> >i END SUBTEST *•»>>>>>>** >> 

1.10062: 

TRAP C*ESU6 

{ IS ERROR COUNT AT 25 
jBR, IF LESS THAN 25 
,TRY TO DROP THE UNIT 



CZTKFA TK-25 FRT ENO FUNC *2 MACRO 
TEST 4: BASIC READ DATA (FORWARD AND 



M1200 20-APR-84 08} 12 
REVERSE) 
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SEQ 179 



6859 
6840 
6841 
6842 
6843 
6844 
6845 
6846 
684 7 
6848 
6849 
6850 
6851 



6852 
6853 
6854 
6855 
6856 
6857 
6858 
6859 
6860 
6861 
6862 
6863 
6864 
6868 
6869 



6870 
6871 
68/2 
6873 
68/4 
68/5 
6876 
68/7 
6878 
6879 
6880 
6881 
6885 
6886 



6887 

6888 
6889 
6890 



J + 



C40052 
040052 
040052 
040054 
040060 
040064 



104402 
004737 
004737 
004737 



043374 
043240 
043332 



0400/0 
040074 
040076 
040102 
040104 
040104 
040106 
040110 
040112 
040114 
040114 



040120 
040124 
040126 
040132 
040134 
040134 
040136 
040140 
040142 
040144 
040144 



004 73 7 
10340 7 
004737 
010001 

104456 

000731 
004 /54 
011666 

104406 



016644 
020102 



00-1737 
103407 
004737 
010001 

104455 
000730 
003550 
011666 



012704 040550 



010332 
020102 



TEST 4, SUBTEST 12 

VERIFIES THAT A READ REVERSE COMMANO ISSUED WHILE THE 
TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE 
(BUT NOT AT BUT) RESULTS IN TAPE STATUS ALERT. 



BGNSU6 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



{>>■>>>>>>>*>> BEGIN SUBTEST >•>>>>>>>>>>> 

T4.12: 

TRAP C$BSUB 
I SET COMMANO PACKET UP CLEAR 
jSET COMMANO PACKET 
j SET UP OTHER COMMANO PACKET 



;****************************************************************** 

I ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

J 

j ********************** ************* * ****** ****** *********** ******* 

j DO INITIALIZE ON CONTROLLER 

|BR IF IN A T WAS OK 

j INC AND CHECK F0« MOHE THAN 25 ERRORS 

{CONTENTS OF TSSR REGISTER 

iFATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 

. WORD 4 72 

.WORD SFIERR 

.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO, SFIERR, SFIMSG 



20$: 



MOV 



0T24PACKET.R4 



j SUBROUTINE NEEDS PACKET ADDRESS 



;********************************************************* ********* 
* 

jWfllTE CHARACTERISTICS COMMANO (CALL TO WRTCHW) 

1 

.A***************************************************************** 



24$ 



JSR PC.WRTCHR 

BCS 24$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



jISSUE WRITE CHARACTERISTICS 

l BR, IF COMMANO ISSUFO OK 

{INC AND CHECK FOR MOHE THAN 25 ERRORS 

j SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP CIERHRD 

.WORD 4 73 
.WORD WRTMSG 
.WORD SUMSG 

(LOOP IF SELECTED 

TRAP C$CLP1 



j**********************«********««*+******************************* 



CZTKFA TK-25 FRT END TUNC 02 
TEST 



MACRO M1200 20-APR-84 08 1 12 
4; BASIC READ DATA (FORWARD AND REVERSE) 
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SEQ 180 



6891 








6892 








6893 








6894 








6895 


040146 


004737 


010434 


6896 


040152 


004737 


017236 


6897 


040156 


103407 




6898 


040160 


010001 




6899 


040162 


004737 


020102 


6903 


040166 








040166 


104456 






040170 


000732 






040172 


042036 






040174 


011700 




6904 


040176 








040176 


104406 




6905 


040200 


012703 


000400 


6906 


040204 


013737 


003072 


6907 








6908 








6909 








6910 








6911 








6912 








6913 








6914 


040212 


012737 


140005 


6915 


040220 


012704 


040700 


6916 


040224 






691 ? 


040224 


010337 


040706 


6918 


040230 


010465 


177776 


6919 


040234 


004737 


017120 


6920 


040240 


016501 


OOOOOO 


6921 


040244 


012702 


000200 


6922 


040250 


020102 




6923 


040252 


001406 




6924 


040254 


004737 


020102 


6928 








6929 








6930 


040260 








040260 


104457 






040262 


000733 






O40264 


005011 






040266 


011700 




6931 


0402 70 








0402/0 


104406 




6932 


040272 


012703 


000400 


6933 


040276 


013737 


003072 


6934 








6935 








6456 








693 7 








6938 








6939 








6940 








6941 


040304 


012737 


100401 


6942 


040312 


012/04 


040700 


6043 040316 


010337 


040706 



040702 



040700 



040702 



040700 



j ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

j ****************************************************************** 

I CALL TAPE REUIND COMMAND 

j SEE HOW TSSR IS 

jBR, IF NO PROBLEM 

I SAVE TSSR 

j INC AW CHECK FOR MORE THAN 25 ERRORS 

j REWIND NOT ACCEPTED 



JSR 


PC.REWIND 


J5R 


PC.CHKTSSR 


BCS 


30$ 


MOV 


R0.R1 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T24RWN.PKTSSR 



30$ 



CKl.OOP 

MOV 
MOV 



TRAP 


CIERHRD 


.WORD 


474 


.WORD 


T24RWN 


.UORD 


PKTSSH 



(LOOP IF SELECTED 



*256. # R3 
FREE.T24RB 



TRAP 



C$CLP1 



lliECORD SIZE 

j STARTING WRITE BUFFER ADDRESS 



{ ****************************************************************** 

JwRITE DATA.ACK.CVC-l COMMAND 

J 

j ***************************************** ******* ** ********* ****** A 



65$ 



MOV 


$140005, T24PK3 


MOV 


0T24PK3.R4 


MOV 


R3.T24SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


75$ 


JSR 


PC.FATCHK 



ERRSOFT ERRNO.WRTERR.PKTSSR 



jWRITE DATA.ACK.CVC-1 COMMAND 
jSET UP R4 WITH PACKET ADDRESS 

j SET UP RECORD SIZE IN PACKET 

I ISSUE COMMANO 

j WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

j SET UP EXPECTED 

I ARE THEY EQUAL 

jBR, IF OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

iSOFT ERROR. REALLY CHECKING THE 

I READ REVERSE DATA COMMANO 

jTSSR INCORRECT AFTER READ DATA 



75$ 



CKLOOP 

MOV 
MOV 



0256. ,R3 
FREE.T24RB 





TRAP 


CIERSOFT 




.WORD 


475 




.WORD 


WRTERR 




.WORD 


PKTSSR 


lLOOP IF SELECTED 








TRAP 


CJCLPl 


jRECORD SIZE 






} STARTING READ BUFFER 


ADDRESS 





,****************************************************************** 

{READ REVERSE DATA.ACK COMMAND 

j ****************************************************************** 



MOV 0100401, I24PK3 
165$ J MOV <M24PK3,R4 
MOV R3.T24S2 



{READ REVERSE DATA.ACK COMMANO 
:SET UP R4 WITH PACKET ADDRESS 
j SET UP RECORD SIZE IN PACKET 



LZIKFA TK -2b FR 
TEST 4: B&SIC 


Read daYa c c?^rward S88 


6944 040522 


010465 


177776 


6945 040526 


0O4737 


017120 


6946 040332 


016501 


oooooo 


6SJ47 040336 


012702 


OC0200 


6948 040342 


020102 




6949 040344 


001406 




6950 040346 


004737 


020102 


6954 040352 






040352 


104456 




040354 


000734 




040356 


043104 




040360 


011700 




6955 040362 






040362 


104406 




6956 040364 


012703 


000400 


6957 040370 


013737 


003072 040702 


6958 






6959 






6960 






6961 






6962 






6963 






6964 






6965 040376 


012737 


100401 040700 


6966 040404 


012704 


040700 


6967 040410 


010337 


040706 


6968 040414 


010465 


177776 


6969 040420 


004737 


017120 


6970 040424 


016501 


OOOOOO 


6971 040430 


012702 


100204 


6972 040434 


020102 




69 73 040436 


001406 




6974 040440 


0O4737 


020102 


6978 040444 






040444 


104456 




040446 


000735 




040450 


043104 




040452 


011700 




6979 040454 






040454 


104406 




6980 040456 


013701 


040604 


6981 040462 


010102 




6982 040464 


052 702 


000001 


6963 040470 


020102 




6984 040472 


001406 




6985 040 74 


004737 


020102 


6989 040500 






040500 


104456 




040502 


0007 36 




040504 


041002 




040506 


016344 




6990 040510 






6991 040510 






040510 






040510 


104403 




6992 040512 


025 727 


002170 000031 


6993 040520 


002402 





KftfeE? 



O-APR-84 08:12 



M14 
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SEQ 161 



MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



170$: CKLOOP 



R4,TSDBCR5^ 

PC.WAITF 

TSSRCR5),R1 

0SSR.R2 

R1.R2 

170$ 

PC.FATCHK 

ERRNO, T24TRL, PKTSSR 



MOV 
MOV 



0256. ,R3 

FREE.T24RB 



l ISSUE COMMAND 

jWATT FOR S5R TC SET 

jGET TSSR CONTENTS 

j SET UP EXPECTED 

jARE THEY EQUAL 

I BR, IF OK 

i INC AND CHECK FOR MORE THAN 25 

{TSSR INCORRECT AFTER READ DATA 

TRAP 
• WORD 
.UORD 
.WORD 

{LOOP IF SELECTED 

TRAP 

j RECORD SIZE 

j STARTING READ BUFFER ADDRESS 



ERRORS 

CIERHRO 

476 

r?4TRl 

PKTSSR 

C$CLP1 



; ****************************************************************** 

'iREAD REVERSE DATA.ACK COMMAND 

I****************************************************************** 



195$: 



MOV 


*10O401,T24PK3 


MOV 


0T24PK3.R4 


MOV 


R3.T24SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR!SC«BIT2,R2 


CMP 


Rl.R? 


BEQ 


200$ 


JSR 


PC.FATCHK 



200$ 



ERRHRD ERRNO , T24TRL , PKTSSR 



L^LHOP 



MOV 


T24BFRfl4 ( Rl 


MOV 


R1.R2 


BIS 


0BIT0.R2 


CMP 


R1.R2 


BEQ 


210$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO, T24L0R .EXPREC 



210$ 



ENDSUB 



CMP 
BLT 



FATFLG.025, 
999$ 



j READ REVERSE DATA.ACK COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

j SET UP RECORD SIZE IN PACKET 

{ISSUE COMMAND 

i WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

j SET UP EXPECTED 

;ARE THEY EQUAL 

jBR, IF OK 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

{TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 477 
.WORD T24TRL 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 

{GET MESSAGE BUFFER CXST3) 

{SET LP EXPECTED 

jSET THE RIB BIT IN EXPECTED 

{ARE THEY EQUAL 

{BR, IF EQUAL CALL IS WEIL) 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

{THE RIB BIT WAS N01 SET IN XSTO 

TRAP CiF.RHKD 

.WORD 4 76 
.WORD T2410R 
.WORD FXPREC 

,>>>>>^>>>>>> tND SUBTEST >>■>>>>>■*••'»•»> 

L 10063: 

TRAP C$ESU6 
{IS ERROR COUNT AT 25 
}BR, IF LESS THAN 25 



N14 
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SEQ 182 



6995 040522 

6996 040526 
6997 

6998 
6999 

7000 040526 

7001 040532 

7002 040534 
7005 040540 
7004 040540 

040540 
040542 



004737 020154 



999$: 



JSR 



004 737 
103002 
000137 



104432 
002662 



017356 
032224 



163$: 



PC.CKDROP 



JSR 


PC.TSTLOOP 


BCC 


163$ 


JMP 


T24L.00P 



jTRY TO DROP THE UNIT 



}D0 WE NEED TO ITERATE TEST 
i BR. IF NO LOOP REQUIRED 
{EXECUTE AGAIN 



EXIT 



TST 



{ALL DONE THIS TEST 



TRAP 
.WORD 



c*rxiT 

L10047- 



Bl!; 
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TEST 4; BASIC READ DATA (FORWARD ANO REVERSE) 



7006 

700/ 

7008 

7010 

7012 

7015 

7014 

7015 

7016 

7017 

7018 

701V 

7020 

7021 

7022 

7023 

7024 

7025 

7027 

7029 

7050 

7051 

7052 

7055 

7054 

7056 

7058 

7059 

7040 

7041 

7042 

7045 

7044 

7045 

7046 

704; 

7048 

7049 

7050 

7051 

7052 

7055 

7054 

7055 

7056 

7057 

7058 

7059 

7060 

7061 

7062 

706 5 

7<X>4 



040544 
040550 
040550 
04055* 
040554 
040556 
040560 
040560 
040562 
040564 
040566 
040570 



040652 
040660 
040660 
04066* 
040664 
040666 

0406 70 
040700 
040700 
040702 
040 702 
040704 
040706 



040710 
040710 
040711 
040712 
040714 



040716 
040720 
040 722 
040724 
040726 



100204 
040560 
000000 
000012 

0405 70 

oooooo 

0OO024 
OOOOOO 



100206 
040710 
OOOOOO 
000006 



100205 

005072 
OOOOOO 
OOOOOO 



010 

200 

OOOOOO 

OOOOOO 



100005 
10O405 
102005 

177777 

oooooo 



itOCAL STORAGE FOR THIS TEST 



.BLKB 


10 <. -Tl 


T24PACKET: 




.WORD 


100204 


.WORD 


T24DATA 


.WORD 





,WORD 


10, 


T24DATA! 




.WORD 


T24BFR 


.WORD 





.WORD 


20, 


.WORD 





T24BFR- .BLKW 


25. 



iWRITE SUBSYSTEM MEMORY COMMAND PACKET 



I 



T24PK2j 



,BlKB 10 < . -TUV2A£7> 



.WORO 
.WOPO 

.WORD 
; UORD 

.BLKB 

.WORD 

• WORD 
.WOOD 
.WORD 

.EVEN 



100206 

T24BK2 



6. 

10 < . -TUV2A&7> 

100205 



FREE 






T24PK5? 

T24RBj 

T24W6; 

T24SJ| 

i 
I 

T24BF2: 

T24BS0: .BYTE 10 

T24BS1: .BtTE 200 

T24S2,- .WORO 

T24S5i .WORD 

i 

I 

.EVEN 
I TAPE MOTION PACKET COMMAND VAUfcS 

T24RNi .WORO 100005 

T24WOR: .WORD 10O405 

T24C0N; .WORO 102005 

.WORD 17777? 

T24DUi .WORD 



SEQ 185 



iCOMMANO PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMANO. WITH IE, ACK 

lAODRESS OF CHARACTERISTICS BLOCK 

jSTARTINC VALUC OF BLOCK SI/E 
iCHARACTERISTICS DATA BLOCK 
lADORESS OF MESSAGE BUFFER 

ILEMGTH OF MESSAGE BUFFER 

♦MESSAGE BUFFER 



iWRITE SUB SY r . MEM C0f»1AND, IE ANO ACK 
lADORESS OF SELECT BLOCK DATA 

iSIZE OF DATA PACKET 



iREAO COMMAND, IE AND ACK 
lADORESS OF WRITE BUFFER 
iSI/fc OF BUFFER (EXTENT) 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AAEA 
lOATA AREA 



^REAO DATA (NEXT) 
iREAO DATA RETRt 
iWRITE CONTINOUS 
It NO QF DATA 
lOELAY STORAGE AREA 



c 



Kb 
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11 V 



SEU 184 



?» 

7068 

7069 

70 70 

7071 

707? 

7073 

7074 

707b 

7076 

70 7 7 

7076 

7079 

7060 

7061 

7062 

7063 

7064 

7065 

7066 

7067 

7066 

7069 

7090 

7091 

7092 

7093 

7094 

7095 

7096 

709 7 

7096 

7099 

7100 

7101 

7102 

7103 

7104 

7105 

7106 

7107 

7106 

7109 

7110 

7111 

7112 

7113 

7114 

7115 

7116 

7117 

viia 

7119 
7120 
7121 
7U£ 



040730 
041002 
041052 
041141 
041225 
041302 
041366 
041447 
041501 
041553 
041620 
041706 
C41763 
042036 
042105 
042160 
042225 
042300 
042366 
042437 
042512 
042563 
042652 
042734 
04 3016 
043104 
043172 



04 5240 
04 3240 
043244 
04 3250 
043254 
045?60 
04 3262 
04 3266 
04 3272 
043274 
0433OO 
04 3302 
04 3306 
043512 
043320 
043322 
045326 



116 
122 
124 
124 
124 
111 
111 
122 
124 
lc'4 
104 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
102 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
006021 
012711 
012702 
012762 
005742 
022 702 
001571 



105 
111 
123 
123 
123 
154 
154 
105 
123 
141 
141 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
141 



040550 
100OO4 
040560 

000012 
040570 

000024 

oooooo 

000030 
177777 

OOOOOO 



106 
102 
123 
123 
123 
154 
154 
101 
123 
160 
164 
101 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
HI 
163 
141 
163 



I • 

I LOCAL 

I 



TEXT MESSAGES FOR TEST 



T24NEF t 

T24L0Rs 

T24W0Gi 

T24NXMi 

T24W0F i 

T24ILA: 

T24L0Q} 

T24SSR: 

T24U0Ct 

T24B0T: 

T24DTA! 

T24E0T: 

T24THi 

T24RWN; 

T24RNCi 

T24AM3: 

T240TH 

T24W0O: 

T24WDC: 

T24VCKi 

T24BA: 

T24WSS: 

T24L0N: 

T24L0P: 

T24P8Pj 

T24TRL: 

TST24I0: 

i * 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



NEF Not Set After NON -EXECUTABLE FUNCTION' 

RIB Not Set After READ REVERSE Into BOT' 

TSSR Not Correct After IlltMl Buffer Addreee Bit* Set' 

TSSR Not Correct After NXM Memory Addreee In Packet' 

TSSR Not Correct After Illegal Mode Bite Set' 

Illegal Addreee Bite, Feiled To Set ILA Bit In XSTO' 

Illegal Mode Bite, Failed To Set ILC Bit In XSTO' 

RtAO COMMAND Not Accepted' 

TSSR Not Correct After WRITE DATA Commend' 

Tepe Not At BOT After REWIND CoMnaod' 

Data Written To Tepe Not Equal To Data Read From Tape* 

R€AO DATA OVER EOT GAVE NO TAP€ STATUS ALERT' 

TSSR Not Correct After RtAO COMMA*© Reject* 

Rewind (POSITION) Coewand Not Accepted' 

RAM Error, Correct Data Pattern Not In Rem' 

TSSR Init. railed After READ COMMAND' 

Drive 7 Select Feiled To Set "OFL" In TSSR' 

TSSR Not Correct After RCAO DATA Comer>d, SWB Bit Set' 

RtAO OATA Coamaod' 

VCK In Maeeege Buffer' 

READ DATA Commend' 

Co**tand Not Accepted (RAM Read)' 
Failed To Sat RLL Bit In XSTO* 
FeiUd To Set RLS Bit In XSTO' 



TSSR Not Correct After 
CVC Set, Didn' ' t Reeet 
TSBA Not Correct A'ter 
WRITE SUBSYSTEM MEMORY 
Reading Long Record 
Reading Long Record 



Reeiduel Byte Count 
Reading Long Record 
ASCIZ 'Baelc Read 



Incorrect After Short Record Reed' 

Failed To Give Tape Statue Alert' 
Data (Forward mrs<i Reveree)' 



iROUTINE TO RESTORE COMMAND PACKET TO START -LP (DEFAULT) VALUES 
(WRITE SUBSYSTEM MEMORV COMMAND 



iSAVE THE REGISTERS 

jSTART OF TM£ PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK , 

lADOflESS OF CHARM5TICS DATA BLOCK 

.EXTENDED ADDRESS 

jSIZE OF DATA BLOCK IN Bm.S 

lADDPESS OF MESSAGE BUFFER 



040570 



1 
1 

T24RESTi 




SAVREG 




MOV 


*T24PACKET,R1 


MOV 


♦ '. 00004, (Rl )• 


MOV 


#K'4f)ATA.(Rl)» 


CLR 


(Rl)> 


MOV 


♦10. ,(R1 J. 


MOV 


♦T24BFR,(M1)> 


CLR 


(Rl)» 


MOV 


♦20. $ (R1)» 


CLR 


(Ri)» 


MOV 


•O.vRl) 


MOV 


♦24. $ R2 


64 $ ; MOV 


♦i77777 t T240FR(R^) 


1ST 


-(R2) 


CMP 


♦C,R£ 


BNfc 


64* 



iLENGTH OF MESSAGE BUFFER 



iSELECT DRIVE ZERO 
,NL*«3ER OF LOCATION:, 
»ALL ONES TO MESSAGE 
iNEXT LOCATION 
iCKECK FOR E,NO OF LOOP 
iKEtP GOING UNTIL OONt 



TO BE CLEARtD 
BUFFER 



Hir\\ K s&i\&w w<?fa*Rti* 



7125 


043330 


000207 




7124 








7125 








7126 


043332 






7127 


043332 






7128 


043336 


01.^701 


040660 


7129 


04334? 


01,721 


IO206 


7130 


043346 


012 '21 


O^v 710 


7131 


043352 


005021 




7132 


043354 


012721 


000006 


7133 


043360 


005021 




7134 


043362 


012701 


040710 


7135 


04 3366 


005021 




7136 


043370 


005011 




7137 


043372 


000207 




7136 


043574 






7139 


043374 






7140 


04 3400 


012701 


040 700 


7141 


04 3404 


012721 


000000 


7142 


04 3410 


012721 


000000 


714 3 


04 5414 


005021 




7144 


043416 


012711 


oooooo 


7145 


04 3422 


000207 




7146 


04 3424 
04 3424 








043424 


104401 









1 s 


m®sj° 


♦APR -84 


08:12 PAGE 117-1 




RT5 


PC 


T24RT2: 


SAVREG 






MOV 


♦T24PK2.R1 




MOV 


#100206, (Rl)* 




MOV 


♦T24Br2,(Rl)t 




CLR 


(Rl)* 




MOV 


•6., CRD* 




CLR 


(Rl)* 




MOV 


♦T24BF2.R1 




CLR 


(Rl)t 




CLR 


CR1) 




RTS 


PC 


T24HT3j 


SAVREG 






MOV 


#T24PK3,R1 




iOV 


♦0,CR1)» 




MOV 


♦O.(Rl)* 




CLR 


(Rl)» 




MOV 


•O.CRl) 




RTS 


PC 




ENOTSY 





SEQ 165 



iRETURN 



iSAVfc THE REGISTERS 

iSTART OF TMF. PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK, IE 

» ADDRESS OT DATA BLOCK 

lEXTENDtD ADDRESS 

iSIZE Of DATA BLOCK IN BYTES 

jPOINT TO DATA SEL AREA 



iRETURN 

iSAVE THE REGISTERS 

iSTART OF THE PACKET 

tCLEAR AREA OUT 

»ADORESS OF DATA BLOCK 

jFXTFNOED ADORESS 

iUI/E OF DATA BLOCK IN BYTES 

iRETLflN 



L10047: 



TRAP 



CIETST 



C/TKFA TK ?5 FRT END FlJNC *«> 
TEST 5: MANUAL INTERVENTION 

7148 
7149 
7 ISO 
/151 

nw 

7155 

7154 
7155 
7156 
715/ 
7158 
7 1 59 
7160 
7161 
7162 
7165 
7164 
7165 
7166 
716/ 
7168 
7169 
7170 
71/1 

fir P. 

7173 
71 74 
7175 
7176 
717/ 
71 78 
71/9 
7180 
7181 
718? 
7185 
7184 
7185 
7186 
7187 
7188 
7189 
7190 
7191 
719? 
719* 
7194 
7195 
7196 
719/ 
7198 
7199 
7«?00 
/?01 
7?0? 
7.?03 
7304 



PI. 5 
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.SBTTL TEST 5j MANUAL INTERVENTION 
THIS TEST MUST BE STARTED AS FOM.OWS: 



A! THE DIAGNOSTIC SUPERVISOR PROMPT *'DR>" 
TYPE "START/FLAGtPNT/TEST'VPASStl" 



5EQ 186 



THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST") 
THAT ALLOUS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 
THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU Of SELECTABLE 
SUBTESTS ANO THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 
THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 4, 
SELECTION COOES ANO SUBROUTINES ARE 5 



COOE ROUTINE 

HELP. PRINTS THIS MENU. 

1 REWIND ANO UNLOAD COMMANO TEST 

2 WRITE-PROTECT TEST 

3 FRONT PANEL ON-LINE SWITCH TEST 

4 EXIT (RETURN TO SUPERVISOR) 



EACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS} 



SELECTION - PRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 



SELECTION 1 THIS ROUTINE INSTRUCTS TmE OPERATOR TO PLACE THE DRIVE ON-LINE 
AND AT OR BEYOND BOT . THE TEST WILL THEN ISSUE THE REWIND ANO 
UNLOAD COMMAND. IT WILL ALSO TELL THE OPERATOR IF THE DRIVE 
ENDED UP ON-LINE OR OFF-LINE. 

SELECTION Z - THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 
TAPE REEL THAT OOES NOT HAVE A WRITE -ENABLE RING INSTALLED* THEN 
WAITS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
UPON THE RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 
A WRITE PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE 
TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT 
THE WRITE FUNCTION COULD NOT BE PERFORMED BECAU^ , THE REEL IS 
WRITE -PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED, 
AN ERROR IS REPORTED. 

SELECTION 3 - THIS TEST CHECKS THAT THE PROGRAM CAN READ JHl SENSE 
OF THE FRONT PANEL "ON-LINE 1 ' BUTTON/LIGHT. THE PROGRAM CHECKS THE 



TEST 5; 

7205 
7206 

7207 
7208 
7209 
7210 
7211 
7212 
7213 
7214 
7215 
7216 

7217 
7218 
7225 

7224 
7225 
7226 
7227 
7228 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7240 
7241 
7242 
7243 
7244 
7245 
7246 
7247 



K 25 FRT END FUNf 02 
MANUAL INTERVENTION 



MACRO M1200 20-APR-84 00:12 



K 1 5 

PAGE 118-1 



5EQ 187 



7248 
7249 
7250 



7251 
7252 
7253 
7254 
7255 



043426 
04 3426 
043426 
0434 32 
043436 
043442 
043444 
043450 
043452 
043452 
043456 
043462 
043466 
0434 70 
043474 
043502 
043504 
043510 
043510 
043514 
043522 
043526 
043530 
043532 
043536 
043540 
043540 
043544 
043546 
043552 
043554 
043560 
043562 
04 3566 
043570 
04 3574 
0435/6 
043576 
04 3600 
043602 
04 3604 
04 3606 
04 3612 
04 3616 
04 3622 
0436^4 



005037 
005037 
005737 
001403 
012700 
000402 

01270O 
004737 
004737 
103402 
000137 
022737 
001402 
000137 

00503 7 
012737 
0O4737 
103427 
010001 
032701 
001023 

012727 
OOOOOO 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005337 



104455 
000765 
003550 
011666 
0127OO 
012701 
004737 
0100O4 
006304 



002170 
003100 
002162 

045400 



046466 

017410 
021404 

044600 
OOOOOl 

044600 

002170 
176 750 
016644 



000200 

000250 
002116 
17/772 
177756 
044612 



046512 

000004 

02U62 



jSTATE OF THE DRIVE (ON-LINE OR OFF-LINE) ANO PRINTS A MESSAGE TO 
NOTIFY THE OPERATOR I.E. "DRIVE IS NOW OFF LINE" OR "DRIVE IS NOW ON-LINE". 

SELECTION 4 - THIS WILL RETURN THE PROGRAM TO THE DIAGNOSTIC 
SUPERVISOR PROMPT, NOTEt IF THE OPERATOR FAILED TO SELECT A PASS 
COINT OF ONE, THE PROGRAM WILL LOOP UNTIL STOPPED WITH A CONTROL C, 



211 
3$; 



002162 19* 



044612 



22$ 

2$; 

55} 



BGNTST 

CLR 
CLR 
TST 
BEQ 
MOV 
BR 

MOV 
JSR 
JSR 
BC5 

jm- 1 

CMP 
BEQ 

JMP 

CLR 
MOV 
JSR 
BCS 
MOV 
BIT 
BNE 
DELAY 



DEC 
BNfc 

ERWDF 



Z$il 



FATFLG 

KTFLG 

TSTCNT 

21* 

*T38NE,R0 

3$ 

4T38ID.R0 

PC.TSTSETUP 

PC.CHKMAN 

19$ 

64$ 

41, TSTCNT 

22$ 

64$ 

FATFLG 

♦65000. , T38DLY 
PC.SOFINIT 
23$ 

R0.R1 
4SSR.R1 
23$ 
250 



T38DLY 

5$ 

ERRNO^FIERR.SFJMSG 



MOV 


♦MIMENU.RO 


MOV 


*4,R1 


JSR 


PC.GETSEL 


MOV 


R0,R4 


ASL 


R4 



T5: : 
CLEAR FATAL ERROR FLAG 
HOLD OFF KTU 
IS THIS THE FIRST TEST 
BR. IF FIRST TEST 
"TEST NOT EXECUTED" 
JUMP IF NOT FIRST TEST 

TEST ID MESSAGE 

DO THE COMMON SETUP 

IS MANUAL INTERVENTION ALLOWED? 

BR, IF MANUAL INTER ALLOWED 

JUMP IF NOT ALLOWED 

CHECK MIGHT HAVE TO LEAVE 

BR. IF YOU OON' T HAVE TO 

WASN'T FIRST TEST IN SEQUENCE 

CLEAR THE FATAL ERROR FLAG 

SET UP DELAY COUNTER 

DO A SOFT INIT 

BRANCH IF OK 

CONTENTS OF TSSR REGISTER 

CHECK FOR TSSR SET 

KEEP GOING IF NOT SET 

CALL DELAY ROUTINE 



jBUMP COUNTER DOWN 
jBR, IF MORE TIME LEFT 
l REPORT FATAL ERROR 

jMENU OF MANUAL INTERVENTIONS 
jMAXIMUM ALLOWED SELECTION 
iGO GET THE OPERATORS SELECTION 
jGET NUMBER FROM ROUTINE 
iCQNVERT TO WORD OFFSET 



MOV 


♦250. C PC)* 


.WORD 





MOV 


L$DL> .(PC)* 


.WORD 





DEC 


~6(PC) 


BNE 


. -4 


DEC 


*22(PC) 


BNE 


♦ -20 


TRAP 


C$ERDF 


.WORD 


501 


.WORD 


SFIEMR 


.WORD 


SFIMSG 



CZTKKA TK-25 FRT END F UNC $2 
TEST 5: MANUAL INTERVENTION 
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SfcQ 160 



7256 
725/ 
7258 
7259 
7260 
7261 
7262 
726 3 
7264 



7265 
7266 
72/0 
7271 



7272 
7273 
7274 
72/5 
7279 
7280 



72ei 
7282 
7283 
7284 
7285 



7286 
728 7 
7288 



7289 
7290 



043626 
043632 
043634 
043636 
043640 
043642 



043644 
043644 
043650 
043654 
04 3656 
04 3660 
043664 
043670 
043672 
043674 
04 3674 
04 3676 
04370C 
043702 
043704 
043704 
043/10 
043714 
043716 
043/20 
043720 
043722 
043724 
04 372t, 
043/30 
043730 
043736 
043744 
043746 
043746 
043752 
043754 
043760 
043762 
043766 
043770 
043774 
043776 
044002 
044004 
044004 
044010 
044014 
044016 
044C20 
044024 
044030 
044030 
044034 



0OO174 
043510 
04 3644 
044176 
044456 
044600 



012746 
012746 
010600 
104417 
062706 
004737 
103405 
01OOO1 

104455 
000766 
003550 
011666 

012704 
004737 
103405 
010001 

104456 
000767 
004754 
011666 

0127*7 
036527 
001431 

01272/ 
000000 

013727 

oooooo 

005367 
0013/5 
005367 
001367 
005337 
001355 

012746 
012746 
010600 
104417 
062706 
000137 

012/46 
012746 



043632 



61: 



046026 
000001 



0000O4 
016644 



045320 
010332 



OOO031 
OOOOOO 



OO0250 
002116 
177772 
177756 
044612 



045772 
000001 



000004 
04 3664 

046105 
OOOOOl 



JMP 

.WORD 

.WORD 

.WORD 

• WORD 

.WORD 



20$; 



?22$; 



JSR 
BCS 
MOV 
ERRDF 



300$: 



MOV 
JSR 
BCS 
MOV 
ERRHRD 



310$: 
044612 
000100 311$; 



MOV 
BIT 
BEQ 
DELAY 



315$} 



JMP 
PRINTF 



S6$(R4) 

2$ 

20$ 

25$ 

500$ 

63$ 



PRINTF 0T38MS4 



PC.SOTINIT 

300$ 

R0.R1 

ERRNQ.SFIERR.SFIMSG 



♦T38PK2.R4 

PC.WRTCHR 

310$ 

R0.R1 

ERRN0.WRTMSG.SF1MSG 



♦25, , 138DLY 

TSSR(R5),00FL 

315$ 

250 



DEC 


T38DI. Y 


BNE 


311$ 


PRINTF 


0T38OFL 



?22\ 
0T38MS5 



I JUMP TO PROPER LOOP 

>RF.TYPE THE MENU 

x 1 REWINO ANO UNLOAD COMMAND TEST 

l 2 WRITE PROTECT 

I 3 FRONT PANEL ON-LINE 5WITCH TEST 

I 4 LEAVE THE TEST 



I DO 
I BR 



SOFT TNIT OF 
IF SOFT INIT 



I TELL 'EM WHAT TO DO 

MOV 

MOV 

MOV 

TRAP 

ADD 
CONTROLLER 
- OK 
j SAVE CONTENTS OF TSSR 
I DEVICE FATAL ERROR DURING INIT 

TRAP 

.WORD 

.WORT) 

.WORD 

j SUBROUTINE NEEDS PACKET AOORESS 

, ISSUE WRITE CHARACTERISTICS 

» BR. IF COMMAND ISSUED OK 

I SAVE CONTENTb OF TSSR 

jWRITE CHARACTERI5TISC FAILED 

TRAP C»ERHRD 

.WORD 503 
.I'ORO WRTMSG 
.WORD 5FIMSG 



#T38MS4,-(SP) 
•1. -(SP) 

SP.RO 

C$PNTF 

♦4.SP 



CIcRDf 
502 
SFIFRR 
SFIMSG 



j SET UP K)R A LONG WAIT 
j IS DRIVE Of F-LINE 
iBR. IF DRIVE IS ON 
j DELAY ABOUT .25 



LiNe 

SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

COUNTER DOWN 
DELAY TO GO 



♦250. (PC)* 


LIOL.Y.(PC)* 


-6i pl : 

. 4 
221 PC) 

. -20 



I BUMP LONG DELAY 
j BR. IF MORE LONG 
i"DRU r IS NOW OFF-LINE" 

MOV 

MOV 

MOV 

TRAP 

ADO 

iSTAY HERE FOREVER, WITH MESSAGE 
I "DRIVE SHOULD NOW REWINO ANO GO 0* L ' 

MOV ♦T38MS5. -ISP) 

MOV 91,-lSP) 



♦ T 380* L . - 1 5P ) 
•i. (SP) 
SP.RO 

C$PNTF 
♦4.SP 



CZTKFA TK 25 FRT END FUNC $2 
TEST 5? MANUAL INTERVENTION 





044040 


010600 






044042 


104417 






044044 


062706 


000004 


7291 


044050 


012704 


045350 


7292 


044054 


010465 


177776 


7293 


044060 


004737 


017120 


7294 


044064 


016501 


000000 


7295 


044070 


012702 


000300 


7296 


044074 


020201 




7297 


044076 


001404 




730X 


044100 








044 ICO 


104456 






044 102 


000770 






044104 


046240 






044106 


011700 




7302 


044110 








044110 


104406 




7303 


044112 


016501 


000000 


7304 


044U6 


032701 


000100 


7305 


^44122 


001011 




7306 


044124 








044124 


012746 


045676 




044130 


012746 


000001 




044134 


010600 






044136 


104417 






044140 


062706 


000004 


730 7 


0*4144 


000410 




7308 


044146 








044146 


012746 


0457 72 




044152 


012746 


000001 




044156 


010600 






044160 


104417 






044162 


062706 


0O0004 


7309 


044166 


005037 


002172 


7310 


044172 


000137 


043510 


7311 


044176 








044176 


104443 






044200 


000404 






044202 


04 7042 






044204 


000120 






044206 


0463 70 






044210 


177777 






044212 






7312 


044212 








044212 


103371 




7315 


044214 


005737 


047042 


7314 


044220 


001002 




7315 


044222 


000137 


04 3510 


7 316 


044226 






7517 


044226 


004737 


016644 


7316 


044232 


103405 




7322 


044234 


010O01 




7323 


044236 








044236 


104455 






044240 


0007 71 






044242 


003550 






044244 


011666 
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320$ ! 



380$ t 



390$; 
25$: 



27$] 



MOV 


♦T38PK3.R4 


MOV 


R4,TSDB(R5^ 


JSR 


PC.WAITF 


MOV 


TSSR(R5)J<1 


MOV 


*SSR!0FL,R2 


CMP 


R2.R1 


Bfc'Q 


350$ 


ERRHRD 


ERRNO,T38SST,PKTSSR 



350$; CKLOOP 

MOV 
BIT 
BNE 
PR1NTF 



TSSRCR5),R1 
*0f L.R1 
380$ 
4T380NL 



BR 390$ 
PRINTF 0T380FL 



CLR INTRECV 

JMP 2$ 

GMANIL T38M5G , T380AT , - 1 ,N0 



BNCOMPLfcT*-- 25$ 

TST T380AT 

BNE 27$ 

JMP 2$ 

JSR PC. SOT INI T 

BCS 400$ 

MOV R0.R1 

ERRDF ERRNO , SF IERR , SF 1MSG 



SEQ 189 



MOV SP.RO 

TRAP C$PNH 

ADO *4,SP 

» SET UP NEW PACKET FOR REWIND/RELEASE 

iREUINO RELEASE, ACK.CVC-1 CMO 

jWAIT FOR SSR TO SET 

iGET TSSR STATUS 

i SET UP EXPECTED 

lIS EVERYTHING OK 

iBR, IF ALL IS WELL 

i DEVICE FATAL SSR FAILED TO SET 

TRAP 



i LOOP ON ERROR. IF FLAG 



.WORD 

.WORD 

,WORD 

SET 

TRAP 



iREAD TSSR STATUS 
iCHECK THE OFF-LINE BIT 
iBR. IF DRIVE IS OFF-LINE 
j "DRIVE IS NOW ON-LINE" 

MOV 
MOV 
MOV 
TRAP 
ADD 
i ALMOST DONE 
i "DRIVE IS NOW OFF-LINE" 

MOV 
MOV 
MOV 
TRAP 
ADD 
I CLEAR INTFRRUPT FLAG 
I TRY AGAIN 
•.WAIT FOR OPERATOR TO MOUNT 



C$ERHRD 
504 

T58SST 
PKTSSR 

C$CLP1 



dT380NL,-(SP) 
•1. (SP) 
SP.RO 
C$PNTF 
04, SP 



4T380FL.-CSP) 

•l.-(SP) 

SP.RO 

C$PNTF 
04.SP 



TAPE 



iRETRY IF ERRON 



10000$ 



TRAP 

BR 

.WORO 

.WORD 

.WORD 

.WORD 



BCC 
? 



iDID OPERATOR SAV ' YES 
I BRANCH IF YES 
jRETURN TO MAIN MENU 



,00 SOFT INIT OF CONTROLLER 

j9R IF SO* T INIT - OK 

,SAVE CONTENTS OF TSSR 

jDEVICE FATAL ERROR DURING INIT 

TRAP 
.WORO 
.WORD 
.WORD 



C$GMAN 
10000$ 
T38DAT 
T$CODE 
T38MSG 
-1 



25$ 



C$rRDF 

505 

Sf I ERR 

SF1MSG 



CZTKKrt TK-25 KRT LNO KUNC 02 
TEST 5: MANUAL INTERVENTION 



7324 


044246 








044246 


104406 




7325 


044250 


012704 


045320 


7326 


044254 


004737 


010332 


7327 


044260 


103405 




7331 


044262 


010001 




7332 


044264 








044264 


104456 






044266 


000772 






044270 


004 754 






0442 72 


011666 




7333 


044274 








044274 


104406 




7334 


044276 


013701 


044614 


7335 


04430^ 


010102 




7336 


044304 


052702 


000004 


733 7 


044310 


020102 




7338 


044312 


001406 




7342 


044314 








044314 


104456 






044316 


0007 73 






044320 


045541 






044322 


016344 




7343 


044324 


0O0137 


043510 


7344 


044330 








044330 


104406 




7345 


044332 








044332 


012746 


0464 30 




044336 


012746 


OOOOOl 




044342 


010600 






044344 


104417 






044346 


062706 


000004 


7346 


044 352 


017737 


136514 


'734 7 


044360 


012704 


045370 


7 348 


044364 


010465 


177776 


7349 


044370 


004737 


017120 


7350 


0443 74 


016501 


000000 


7351 


044400 


012702 


100206 


7352 


044404 


020102 




7353 


044406 


C014C4 




7357 


044410 








044410 


104456 






044412 


0007 74 






044414 


045455 






044416 


011700 




7358 


044420 








044420 


104406 




7359 


044422 


013701 


044644 


7360 


044426 


010102 




7361 


044430 


052/02 


004000 


7 362 


044434 


020102 




7363 


044436 


001404 




7367 


044440 








044440 


104456 






044442 


000775 






044444 


045602 






044446 


016344 
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400$ j CKLOOP 



MOV 


♦T3BPK2.R4 


JSR 


PC.WRTCHR 


BCS 


410$ 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



410*: CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
ERRHRD 



430*5 



045372 435*5 



MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
ERRHRD 



440*5 CKLOOP 



T38BFR»6,R1 

R1.R2 

*6IT?,R2 

R1.R2 

430* 

ERRNO,T38WRL, EXPREC 



JMP 2* 

CKLOOP 

PRINTF OT38W0K 



8TREE.T38WR 
♦T38PK4.R4 

R4.T5D8CR5) 

PC.WAITF 

TSSR(R5),R1 

*SC!SJ>R!BIT1,'BIT2,R2 

R1.R2 

440* 

ERRNO,T38WRT,PKTSSR 



MOV 


T38BFR.6.R1 


MOV 


R1.R2 


BIS 


*BIT11,R2 


CMP 


R1.R2 


BtQ 


450* 


ERRHRD 


ERRN0,T38WLE,EXPREC 



SEQ 190 



I LOOP IE SELECTED 

TRAP C*CLPl 

i SUBROUTINE NEEDS PACKET ADDRESS 
I ISSUE WRITE CHARACTERISTICS 
l BR, IF COMMAND ISSLtD OK 
I SAVE CONTENTS OF TSSR 
j WRITE CHARACTERISTIC 



i LOOP IF SELECTED 



FAILED 




TRAP 


C*ERHRO 


.WORD 


506 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



TRAP 



,PICK UP XSTO CONTENTS 

,SET UP EXPECTED 

jSET UP THE. WRITE I OCKED BIT 

»ARE THEY CORRECT 

jBR, IF ALL IS WELL COK) 

I "WRITE LOCKED BIT IS NOT SFT 

TRAP 
.WORD 
.WORD 
.WORD 

j BECAUSE OF ERROR GO BACK TO 

jLOOP IF SELECTED 

TRAP 

iPRINT "DRIVE IS WRITE PROTECTED 

MOV 
MOV 
MOV 
TRAP 
ADD 

I SET LP WRITE BUFFER ADDRESS 

jGET PACKET ADDRESS 

I SET THE PACKET ADDRESS 

jWAIT FOR SSR TO SET 

l GET TSSR 

I SET UP EXPECTED 

j ARE THEY EQUAL (CORRECT) 

»BR, IF CORRECT STATUS 



C*CLP1 



ETC. " 
C*ERHRP 
50 7 
T38WRL 
EXPREC 
MENU 



C*CLP1 

*T3BW0K,-(SP) 
♦ 1, -CSP) 
SP.RO 
C*PNTF 
*4.SP 



» M TSSR INCORRECT AFTER WRITE 

TRAP 
.WORD 
.WORD 
.WORD 

l LOOP ON ERROR, IF FLAG SET 

TRAP 

j READ XSTC CONTENTS 

I SET UPR EXPECTED 

iSET THE WRITE LOCK ERROR BIT (XSTO) 

,U,\S THE BIT SET 

I BR, IF IT WAS (GOOD) 

i "WRITE LOCK ERROR BIT 



COMMAND 
C«ERHRD 
508 
T381VRT 
PKTSSR 

ClCl.Pl 



NOT SET" 




TRAP 


CttRHRD 


.WORD 


509 


.WORD 


T38WLE 


,WORD 


EXPREC 



C/TKFA TK 25 FRT END FUNC <>2 
TEST 5; MANUAL INTERVENTION 



7368 


044450 








044450 


104406 




7369 


044452 


000137 


043510 


7370 








7.S71 


044456 








044456 


012746 


046162 




04446? 


012746 


000001 




044466 


010600 






044470 


104417 






044472 


062 706 


000004 


7372 


044476 


004737 


016644 


7373 


044502 


103405 




7377 


044504 


010001 




7378 


044506 








044506 


104455 






044510 


000776 






044512 


005550 






044514 


011666 




7379 


044516 






7380 


044516 


016503 


OOOOOO 


7381 


044522 


030327 


000100 


7582 


044526 


001412 




7383 


044530 








044550 


012746 


045772 




044534 


012746 


000001 




044540 


0106 00 






044542 


10441/ 






044544 


062706 


000004 


7384 


044550 


000137 


043510 


7585 








7386 








7387 


044554 








044554 


012746 


045740 




O44560 


012746 


000001 




044564 


010600 






044566 


104417 






044570 


062706 


0OO0O4 


7 588 


044574 


000137 


043510 


7389 








7390 


044600 






7391 


044600 








044600 


10443? 






044602 


002752 




739? 








7593 








7394 








7395 








7396 








739/ 








7398 








7399 








7400 








7401 








740? 








74 03 


044604 


000000 




7404 


044606 


oooooo 




7405 


044610 


000000 





J15 

MACHO M1200 20-APR 84 08; 12 PAGE 118-5 

450$: CKLOOP 

JMP 2$ 
500$ j PRINTF OT38MS6 



510$: 



JSR PC.SOFINIT 

BCS 5201 

MOV R0.R1 

ERRDF ERRNO , SFIERR , 5FIMSG 



520$: 



MOV TSSR(R5),R3 

BIT R3.0OFL 

BEQ 550$ 

PRINTF #T3B0FL 



JMP 



2$ 



550$: PRINTF OT380NM 



63$: 
64$: 



JMP 



EXIT 



2$ 



TST 



j LOCAL TEXT MESSAGES FOR TEST 



} LOCAL STORAGE FOR THIS TEST 



5 LOCAL STORAGE FOR THIS TEST 
i 



TU0N2 
TV5AV2 
TPSAV2 



WORD 
.WORD 
.WORD 



SEQ 191 



{LOOP IF SELECTED 
I GO BACK TO MENU 



TRAP 



i TELL 'EM WHAT TO DO 

MOV 

MOV 

MOV 

TRAP 

ADD 

l DO SOFT 1NI1 OF CONTROLLER 

I BR IF SOFT INIT - OK 

j SAVE CONTENTS OF T3SR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
. WORD 

j IS DRIVE OFF LINE 
jLOOK AT THE OFF-LINE BIT 
iBR, U DRIVE IS ON LINE 
i "DRIVE IS NOW 



CfCLPl 



0T38MS6, -(SP) 
•1. (SP) 
SP.RO 
C$PNTF 
04,SP 



CIERDF 
510 
SFIERR 
SFIM5G 



{RETURN TO MENU 



{•'DRIVE IS NOW ON-LINE" 



OFF-LINE" 




MOV 


OT380FL, -(SP) 


MOV 


♦l.-(SP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


04, SP 



jTTTUNN TO MENU 



{LEAVE TEST 



MOV 


*T380NM, -USP) 


MOV 


♦I. (SP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


*4,SP 



TRAP 
.WORD 



ClfcXIT 
L 10064 



jWORO SET IF SUPERVISOR TT1 INTER OEK 
{SAVE T II VECTOR 
{SAVE TTI PRIORITY 



:tkfa tk 

1st 5: manual 



' ?SFRI N«^U 2 



7406 
7407 
7409 
7411 
74 IP 
7413 
7414 
7415 
7416 
7417 
7418 
7419 
74^0 
7421 
7422 
7423 
7424 
7426 
7428 
7429 
7430 
7431 
7432 
74 33 
7434 
7435 
74 36 
7437 
7438 
7439 
7441 
7443 
7444 
7445 
7446 
74*4 7 
7448 
7449 
7450 
7452 
7454 
7455 
7456 
745/ 
7458 
7459 
7460 
7461 
7462 
7463 
7464 
7465 
74f,6 
7467 
7468 
7469 
74 70 



044612 
044614 
044620 
044620 
044622 
044624 
044626 
044630 
044630 
044631 
044632 
044634 
044636 
045312 



045314 
045320 
045320 
045322 
045324 
045326 



045330 
045330 
045332 
045334 
045336 
045340 
045350 
045352 
045354 
045356 
045360 



045562 
0453 70 
045372 
045374 
045376 



000000 



140006 
044630 
000000 
000012 

000 

000 
000000 
000000 

000000 



140OO4 
045330 
000000 
000012 



044636 
0OO000 
000400 
000000 

140412 
000000 
OOOOOO 
000000 
OOOOOO 



140O05 
OOOOOO 
OOOOOO 
000400 







\<V5 


MACRO M1200 20 


-APR-84 


00 2 12 PAGE 118-6 


T38DLY; 


.WORD 







• BLKB 


10- <. -TUV2A67> 


T38PACKET: 






.WORD 


140006 




.WORD 


T38TAD 




.WORD 







.WORD 


10. 


T38TAD: 






T36BS0: 


.BYTE 





T38BS1: 


.BYTE 





T38BS2: 


.WORD 







.WORD 





T38BFR: 


.BLKW 


150, 


T38EB; 


.WORD 





SEQ 192 



iDEl.AY COUNTER FOR TEST 

{COMMAND PACKET FOR TEST 
, WRITE SUBSYSTEM MEM. CMD. 
j ADDRESS OF CHARACTERISTICS 



ACK,CVC«1 
BLOCK 



T38PK2; 



.BLKB 10-<.-TUV2A67> 





.WORD 


140004 




.WORD 


T38DTA 




.WORD 







.WORD 


10. 


T38DTA? 








.WORD 


T38UFR 




.WORD 







.W0«0 


256. 


T38EAI: 


.WORD 







.BLKB 


10-<.-TUV2A67> 


T38PK3; 


.WOflD 


140412 




.WORD 







.WORD 







.WORD 







.WORD 





!wRITE 


TAPE PACKET 




.BLKB 


10 < . TUV2A67> 


T38PK4: 


.WORD 


140005 


T38WR: 


.WORD 







.WORD 





T38SIZ: 


.WORD 


256. 



jSTARTING VALUE OF BLOCK SIZE 
j CHARACTERISTICS DATA BLOCK 
iBSELO BYTE 
jBSELl BYTE 
jBSELl WORD 
{DATA 

, MESSAGE BUFFER 
,END OF BUFFER ADDRESS 



jCOMMAND PACKET FOR TEST 

(WRITE CHARA. MEM. CMNO,. ACK.CVOl 

{ADDRESS OF SELECT DATA BLOCK 

i STARTING VALUE OF BLOCK SIZE 



{SELECT DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 
jEAI BIT WORD 

{REWIND AND UNLOAD COMMAND 
j NOT USED 
iNOT USED 
{NOT USED 
{NOT USED 



j WRITE, ACK. CVC-1 COMMAND 
{ADDRESS OF WHITE BUFFER 
{MORE ADDRESS OF WRITE BUFFER 



j LOCAL TEXT MESSAGES FOR TEST 
I - 



{SIZE OF RECORD 



045400 



123 



164 



141 T38NE: .ASCIZ 'Stand-alone Manual Intervention Not Executed 1 



ft 



TKFA TK 25 FRT FND FUNC 02 
INTERVENTION 



1ST S: MANUAL 



MACRO M1200 20-APR-84 08:12 



L 1 5 

PAGE 118-7 



SEQ 193 



74 71 

74 72 

7473 

74 74 

7475 

7476 

74 7 7 

7478 

74 79 

7480 

7481 

7482 

7483 

7484 

7485 

7486 

7487 

7488 

7489 

7490 

7491 

7492 

7493 

7494 

7495 

7496 

7497 

7498 

7499 

7500 

7501 

7502 

7503 

7504 

7505 

7506 

7507 

7508 

7509 

7510 

7511 

7512 

7513 

7514 

7515 

751b 

7517 

7518 

7519 

7520 

7521 

7522 

7523 

7524 

7525 

7526 

7527 



045455 
045541 
045602 
045676 
045740 
045772 
046026 
046105 

046162 
046240 
046324 
046370 
046430 
046466 

046512 
046524 

046532 
046604 
046632 
046674 
046722 
046776 
047041 



04/042 
04 7044 
047044 
047050 
04/054 
04 7060 
04 7064 
047066 
047072 
04 70 74 
047076 
047100 



12* 
V7 
127 
045 
045 
045 
045 
045 

045 
103 
045 
111 
045 
115 

046532 
046776 

012 
012 
Oil 
OH 
Oil 

on 

000 



000000 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
00501 i 
000207 



123 
122 
122 
116 
116 
116 
116 
116 

116 
157 
116 
163 
116 
141 

046604 
047041 

123 
Oil 
061 
062 
063 
064 



044620 
140206 
044630 

000006 



123 
111 
11) 
045 
045 
045 
045 
045 

045 
156 
045 
040 
045 
156 

046632 
000000 

105 
060 

on 

Oil 
Oil 
Oil 



T38WRT 
T38WRL 
T38WLE 
T380NL 
T380NM 
T380FL 
T38MS4 
T38MS5 

T38MS6 
T38SST 

T38MS2 
T38MSG 
T38WOK 
T38ID: 

MIMENU; 



1* 
21 
5$ 
61 

7$ 
9t 
10$ 



.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

.WORD 

.ASCIZ 
.ASCI,? 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



• TSSR Not Correct After WRITE, With WRITE PROTECT On' 

•WKTTE LOCKED B I t Not Set In XSTO' 

'WRCTE LOCK ERROR B i t Not Set In XSTO, After Attempted WRITE 

'*N»A ERROR Drive Is Still ON-LINE' 

«*N*A Drive I* Now ON-LINE' 

'#N*A Drive Ie Now OFF-LINE' 

■*N*A Set Drive To On-line and At Or Beyond &0T' 

'*N*A Drive Should Now Rewind and Go Off-line' 

«#N*A Front Panel On-line/Off-line Switch Test' 
'Contents Of TSSR Incorrect After REWIND And RELEASE' 
'#N*AType RETURN To Return To Menu*N' 
• Ie Wri te-Protected Tape Mounted' 
'*N#A Drive la Write Protected' 
'Manual Intervention' 

11,2$, 5$. 6$, 7$ 
9$, 101.0 

<12>' SELECT OPERATION FMOM FOLLOWING OPTIONS:' 
<12>' Display This Menu' 

1 Rewind and Unload Command Test' 

2 Write Protect Test' 

3 Front Panel On-line/Off-line Switch Test' 

4 Return to Diagnostic Supervisor' 



j LOCAL STORAGE FOR THIS TEST 



i 



T38DAT; .WORD 



T38REST; 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

CLR 

CLR 

RTS 



*T38PACKET,R1 

#140206, (Rl)» 

*T38TAD,(Rl)f 

(Rl)* 

#6. ,(Rl)t 

CRD* 

CRD* 

(Rl) 

PC 



lLOGICAL RESPONSE TO QUESTION 

jSAVE THE REGISTERS 

I START OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK.CVC-1 

j ADDRESS OF DATA BLOCK 

lEXTENOED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

j CLEAR BSELO AND BSELl 

, CLEAR SEL.2 

iCLEAR DATA AREA 

{RETURN 



i ♦ 



l THIS ROUTINE 
i iHt 256 BYTE 
jTUV-05. 



PRINTS THE CONTENTS OF 
MESSAGE BUFFER RETURNED BY THE 



; 



INPUT; 



RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFtR 
NOTE; Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 



CZTKFA TK."5 FRT FND f L»NC 02 
TEST 5: MANUAL INTERVENTION 



MACRO M1200 20-APR-84 08s 12 



M15 

PAGE 118-8 



SEQ 194 



7528 








i 












7529 








i 












7530 








♦ ~ 












7531 




















7532 


04 7102 






T36M6P} 












7533 


04 7102 








SAVREG 


i 


SAVE THE REGISTERS 






7534 


047106 


010005 






MOV 


R0.R5 | 


SAVE LOU ORDER ADDRESS 






7535 


047 10 


005737 


003102 




TST 


KTENABLE , 


ADDRESS ABOVE 28K? 






7536 


047. 14 


001001 






BNE 


910$ j 


BR IF YES 






7537 


047116 


005001 






CLR 


Rl J 


SET HIGH ORDER ADDRESS TO 






7538 


047120 


010103 




910$; 


MOV 


R1.R3 


SAVE HIGH ORDER ADDRESS 






7539 


047122 


006100 






ROl. 


RO j 


SHIFT BIT15 TO C BIT 






7540 


04 7124 


006101 






ROL 


Rl i 


SHIFT TO HIGH ORDER FOR PRINTOUT 




7541 


047126 
047126 
04 7130 


010546 
010146 






PRINTX 


0T38AS0.R1.R5 


PRINT MESSAGE BUFFER ADDRESS 


MOV 

MOV 


R5.-CSP) 1 
Rl.-CSP) 




047132 


012746 


04/404 










MOV 


OT38AS0,-(SP) i 




047136 


012746 


000003 










MOV 


03, -(SP) 




047142 


010600 












MOV 


SP.RO 




047144 


104415 












TRAP 


C$PNTX 




047146 


062/06 


000010 










ADD 


10, SP ; 


7542 


047152 








PRINTX 


OT38AS1 | 


PRINT HEADER FOR CONTENTS 




- 




047152 


012746 


047451 










MOV 


0T38AS1.-CSP) ! 




047156 


012746 


000001 










MOV 


01, (SP) 




04/162 


010600 












MOV 


SP.RO 




04/164 


104415 












TRAP 


c;pntx 1 




047166 


062706 


000004 










ADD 


04 . SP 


7543 


047172 


010501 






MOV 


R5.R1 j 


COPY LOU ORDER ADORESS 






7544 


047174 


010300 






MOV 


R3.R0 i 


COPY HIGH ORDER ADDRESS 






7545 


047176 


001403 






BEQ 


913$ l 


BR IF NOT ABOVE 28K 




t 

1 


7546 


047200 


0O4737 


020270 




JSR 


PC.SETMAP i 


SETUP PAR ADORESS IN RO 






754/ 


047204 


010005 






MOV 


R0,R5 j 


GET PAR FORMAT ADDRESS ABOVE 


28K 




7548 


047206 


01053 7 


047552 


913$: 


MOV 


R5,T38CNT 


HOLD ADDRESS 






7549 


047212 


011504 




911$: 


MOV 


(R5),R4 ) 


GET BUFFER ENTRY 






7550 


047214 


022704 


125252 




CMP 


0125252, R4 


CHECK FOR NO LOAD CONDITION 






7551 


04 7220 


001417 






BEQ 


912$ 


BR, IF BUFFER UASN' T LOADED 






755? 


04 7222 


010403 






MOV 


R4.R3 


MAKE COPY 






7553 


04 7224 


042704 


170577 




BIC 


01/0377, R4 


ONLY BITS 11,10,9 AND 8 ARE ' 


SAVED 




7554 


047230 


00024 1 






CLC 




CLEAR CARRY 




I 


7555 


047232 


006 00 t 






ROR 


R4 


11 TO 10 BIT POSITION 






7556 


047234 


ooeoi 






ROR 


R4 


10 TO 9 BIT POSITION 






7557 


047236 


00600; 






ROR 


R4 


9 TO 8 BIT POSITON 






7558 


047240 


006004 






ROR 


R4 


8 TO 7 BIT POSITION 






7559 


C1724? 


042703 


177760 




BIC 


01777C0,R3 


ONLY BITS 3,2,1 AND ARE SAVED 




7560 


047246 


060403 






ADD 


R4.R3 


"OR 'EM TOGETHER 






7561 


04/250 


010325 






MOV 


R3,(R5)» 


PUT BACK IN BUFFER 






7562 


04/252 


020527 


045312 




CMP 


R5.0T38EB 


END OF BUFFER YET 






7563 


04/256 


001355 






BNE 


911$ 


BR, IF NOT AT ENO YET 






7564 


04 7260 


013705 


047552 


912$: 


MOV 


T38CNT,R5 


PUT ADDRESS BACK 






7565 


047264 


012704 


000001 




MOV 


01, R4 


START BYTE NUMBER AT ONE 






7566 


04/2 70 






915$: 


PRINTX 


0T38ASN,R4,(R5)* 


jPRT MEM BUFFER W/NEWLINE 






04 7270 


012546 












MOV 


CR5^, (SP) 




04 72 72 


010446 












MOV 


R4, (SP) 




04/2/4 


012/46 


04 7526 










MOV 


0T38ASN, -(SP) 




04/300 


012746 


000003 










MOV 


03. (SP) 




04 7304 


010600 












MOV 


SP.RO 




047306 


104415 












TRAP 


CSPNTX 



CZTKFA TK-25 F'RT END FUNC 02 
TEST 5: MANUAL INTERVENTION 
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SEQ 195 



7567 
7569 
7569 



7570 
7571 
7572 
7573 
7574 
7575 
7576 
7577 
7578 
7579 
7580 
7581 
7582 
7583 
7584 
7585 
7586 
7587 



047310 
047314 
047320 
04 7322 
047322 
04 7324 
047326 
047332 
04 7336 
047340 
047342 
047346 
047352 
047354 
04 7360 
04 7362 
047370 
047372 
047374 
047400 
047402 

047404 
047451 
047507 
047526 

04 7552 
04 7554 
04 7554 
047554 



062706 
005037 
000412 

012546 
010446 
012746 
012746 
010600 
104415 
062706 
005237 
005204 
020427 
003010 
023727 
001401 
0O0753 
005037 
000733 
000207 

045 
045 
045 
045 

000000 



104401 



OOOOIO 
047552 



047507 
000003 



OOOOIO 
047552 

000200 

047552 

047552 



116 
116 
101 
116 



920$ 



921$ 



000004 



925 i 
50$: 



045 T38AS0 

045 T3CAS1 

040 T36ASC 

045 T3BASN 



CLR 

BR 

PRINTX 



INC 

INC 

CMP 

BGT 

CMP 

BEQ 

BR 

CLR 

BR 

RTS 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 
T38CNT: .WORD 
ENOTST 



T38CNT 

921$ 

*T38ASC,R4 



CR5)* 



j CLEAR COUNTER 
I SKIP OTHER PRINT 
j PRINT THE CONTENTS 



ADD 



O10,SP 



OF 



T38CNT 

R4 

R4.0128. 

so: 

T38CNT.44 

925$ 

920$ 

T38CNT 

915$ 

PC 



iBUMP COUNTER 

j NUMBER OK THE NEXT 

j DONE ALL YET ? 

j BRANCH IF ALL DONE 

j DONE FOUR YET 

j BR* IF THREE DONE 

j KEEP GOING 

; CLEAR COUNTER 

j PRINT WITH NEW LINE 

jRETURN 



MEMORY 


BUFFER 


MOV 


CR5)*,-(SP) 


MOV 


R4.-CSP) 


MOV 


^T38ASC,-CSP) 


MOV 


#3,-(SP) 


MOV 


sp.ao 


TRAP 


C5PNTX 


ADD 


O10.SP 



*N*A Message Buffer 
rfNrfA Messooe Buffer 
KA *D4*A: *03' 
*N*A Byte*D4*A: *03 



Address - tf0ltfO5' 
Contents: ' 



{COUNTER FOR PRINT 



L 10064: 



TRAP 



C$ETST 



C/TKKA 
TEST t>: 

7589 
7590 
7591 
75V 
7593 
7594 

7595 
7596 

■ ;s^; 

7598 
7599 

7600 
7601 
760? 
7605 
7604 
7605 
7606 
760 7 

7608 
7609 
7610 
761.1 
7612 
7613 
7614 
7615 
7616 
7617 
7616 
7619 
7620 
7621 
76?? 
762 3 
7624 
76?5 
7626 
76? 7 

7628 
7629 

7634 
7635 
7636 
7637 
7636 
7639 
7640 
7641 
7642 
764 3 
7644 
7645 
7646 
764 7 



TK ?5 FRT END F UNC *2 
CONFIGURATION TYPEOUT 



04 7556 
04 7556 
04 7556 
04 7562 
04 7566 
04 7572 
04 7574 
04 7600 
04 7602 
04 7606 
047612 
047616 
04 7620 
04 7624 
047632 
047634 
04 7640 
04 7640 
047644 



005037 
005037 
005737 
001403 
012700 
000402 
012700 
004737 
004737 
10340? 
C0C137 
022737 
001402 
000137 

004737 
105405 



Bib 
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,SBTTL TEST 6t CONFIGURATION TYPEOUT 

THIS TEST MUST BE START'iC AS FOLLOWS! 

AT THE DIAGNOSTIC SUPERVISOR PROMPT "DR>" 
TYPE , 'START/FLAGtPNT/TESTl6/PASSi , • , 



SEQ 196 



002170 
003100 
002162 

051003 

051450 
017410 
021404 

050?20 
000001 

050220 
016644 



THIS IS A STANDALONE ROUTINE THAT PRINTS O'.'T ON THE CONSOLE TERMINAL 

THE CONFIGURATION OF THE CONTROLLER MOOULE ANO TK25 5UBSYSTEM. SPECIFICALLY. 

THE FOLLOWING INFORMATION IS PRESENTED! 



1.0 MICROCOOE REVSION LEVEL OF THE CONTROLLER, 

2.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 

3.0 UNIT SELECT C006 AND STATE ( ONLINE /OFFL INE , WRITE ENABLED/PROTECTED ) 
OF EACH COWECTED TRANSPORT, 

THE OPERATOR IS EXPECTED TO READ THE PRINTOUT ANO VERIFY THAT IT MATCHES 
TK ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE, THE PROGRAM INDICATES 
THAT IT "SEES" TWO TRANSPORTS CO*#€CTED WHEN IN FACT ONLY ONE IS PRESENT, 
TK OPERATOR MUST INTERPRET THIS AS AN ERROR ANO ATTEMPT TO FIND THE 
CAUSE (BAD CABLE, FAULTY UNIT-SELECT DECOOING IN TKC TRANSPORT, ETC,). 
(SINCE THE CONTROLLER CAN ONLY ACCESS UNIT IF IT IS IN " S T ANT) ARD " 
MOOE. THE PROGRAM WILL FORCE THE MOOULE INTO EXTENDED MOOE VIA THE 
WRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.) 

THIS ROUTINE, WtCN ITS ACTIONS ARE COMPLFTED, WILL EXIT BACK TO THE 
DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
SELECTED (E.G., FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE 
REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED, 



101: 
111! 



002 1« 15»: 
5011 



BGNTST 

CiR 

CLR 

TST 

BEQ 

MOV 

BR 

MOV 

JSR 

JSR 

BCS 

JMP 

CMP 

BEQ 

JMP 

JSR 
BCS 



FATFLG 

KTFLG 

TSTCNT 

101 

♦T39NE.R0 

lit 

#TST39IQ,R0 

PC.TSTSETUP 

PC.CHttMAN 

151 

641 

#1. TSTCNT 

201 

64 1 

PC.SQF1N1T 
25* 



T6:: 

FATAL ERROR FLAG 



IN SEQUENCE ? 



NOT 



jCLEAR 
iHOLD OF KTH 

lIS THIS FIRST TEST 

iBR. IF FIRST TEST 

T'TEST NOT EXECUTED" 

lJUMP OUT OF TEST IF 

I TEST ID MESSAGE 

iDO THE COMMON SETUP 

lIS MANUAL INTERVENTION ALLOWED? 

iBR, IF MANUAL INTERVENTION ALLOWED 

lJUMP TO OUT IF NOT 

lIS THIS THL FIRST TEST IN SEQ 

iBR, IF FIRST TEST 

j JMP If IT WASN 1 T 

jDO SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT • OK 



Ki^, T td#iHHA^ K VWE» 



C16 
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SEQ 197 



7652 

7653 



7654 

7655 
7656 
7657 
7661 
7662 



7663 

7664 
7665 
7666 

7667 



7668 
7669 

7673 
7674 



7675 

76 76 
7677 
7678 
7682 
7683 



7684 

7685 
7686 

768 7 
7688 
7689 
7690 



04 7646 
04 7650 
04 7650 
04 7652 
047654 
04 7656 
04 7660 
04 7660 
04 7662 
04 7666 
047672 
047674 
04 7676 
04 7676 
047700 
04 7 702 
047704 
047706 
047706 
047710 
047714 
047720 
047724 
04 7 724 
047730 
047734 
047740 
047742 
04 7 744 
04 7 750 
047754 
047756 
04 7 760 
047760 
047762 
047764 
047766 
047770 
047770 
047772 
047776 
O50002 
050004 
05O006 
050006 
050010 
050012 
050014 
050016 
050016 
050020 

050024 
050030 
050034 
050036 
050036 



010001 

104455 
001131 
003550 
011666 

104406 
012704 
004737 
103405 
010001 

104456 
001132 
004 754 
011666 

1O4406 
013701 
042701 
010137 

013746 
012746 
012746 
010600 
104415 
062706 
0O4737 
103405 
010001 

104455 
001133 
003550 
011666 

104406 
012704 
0O4737 
103405 
010001 

104456 
001134 
0O4754 
011666 

104406 
005037 

016501 
032701 
001414 



MOV RO.Rl 

ERROK ERRNO, SFIERR .SFIMSG 



25* i 



050730 
010332 



050252 
177700 
051406 

051406 
051323 
000002 



000006 
016644 



050 730 
010332 



002150 

000000 
OOOIOO 



501] 
130»: 



CKLOOP 

MOV 
JSR 
BCS 
MOV 
ERRHRD 



CKLOOP 

MOV 
BIC 
MOV 
PRINTX 



JSR 
BCS 
MOV 

ERRDF 



1401s CKLOOP 

MOV 
JSR 
BCS 
MOV 

ERRHRD 



♦T39PK2.R4 
PC.WRTCHR 
501 
R0.R1 

ERRNO. WRTMSG. SFIMSG 



T398FR*4.R1 

#177700, Rl 

R1.T39RL 

0T39MCL.T39RL 



PC.SOFINIT 

1401 

R0,R1 

ERRNO.SFIERR.SFIMSG 



♦T39PK2,R4 
PC.WRTCHR 
1501 
RO.Rl 

ERRNO. WRTMSG, SFIMSG 



0X5746 002150 



1501: CKLOOP 

CLR UNITN 

190ft MOV TSSR(R5),R1 

BIT #0FL,R1 

BtQ 2001 

PRIHIX eT39Qf2, UNITN 



(SAVE CONTENTS OF TSSR 

IDEVICE FATAL ERROR DURING INIT 

TRAP CIERDF 

.UORD 601 
.WORD SFIERR 
.WORD SFIMSG 
I LOOP IF SELECTED 

TRAP CfCLPl 

I SUBROUTINE NEEDS PACKET AOORESS 

I ISSUE WRITE CHARACTERISTICS 



I BR, IF COMMANO ISSUED 
I SAVE CONTENTS OF TSSR 
jWRITE CHARACTEHISTISC 



OK 

FAILED 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
CNTR AREA 
REV LEVEL 



I DO 
iBR 



SOFT INIT OF 
IF SOfT INIT 



lLOOP IF SELECTED 

»PICK UP THE RES. BYTE 

lONLY LEAVE MICROCOOE 

lLOAD UP REV i EVEL 

j "MICROCODE REVISION LEVEL 

MOV 
MOV 
MGV 
MOV 
TRAP 
ADO 
CONTROLLER 
- OK 

j SAVE CONTENTS CX- /SSR 

jDEVICE FATAL ERR .4* DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 
IF SELECTED 

TRAP 

i SUBROUTINE NtEDS PACKET ADORESS 

i ISSUE WRITE CHARACTERISTICS 

■BR, IF COMMAND ISSUED OK 

jSAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



CtERHRD 
602 
WRTMSG 
SFIMSG 

OCLPl 



lLOOP 



OOOXXX" 

T39RL.-CSP) 

♦ T39HCL,-(SP) 

*?.-(SP) 

SPRO 

CIPNTX 

♦6.SP 



CIERDF 
603 
SFIERR 
SFIMSG 

C*CLP1 



jLOOP IF SELECTED 
» SET TO DRIVE 



TRAP 



CtERHRD 
604 

WRTMSG 
SFIMSG 

C1CLPI 



jGET TSSR STATUS 
iCHECK FOR OFF-LINE 
I0R, r .f DRIVE IS ON-LINE 
I "DRIVE NUMBER XX IS QFF LINE 11 

MQV 



UNITN, -LSP) 



C/TKFA TK 25 FRT END FUNC 02 
TEST 6; CONFIGURATION TYPEOUT 
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7691 
7692 



7693 

7694 
7695 
7696 



7697 
7696 



7699 
7700 



7701 



7702 

7703 
7 704 
7 705 
7706 
7707 
7 708 
7 709 
7711 
7713 
7714 
7/15 
7716 
7 717 
7718 
7719 



050O42 
050046 
050052 
050054 
050056 
050O62 
050066 
050066 
050072 
050076 
050102 
050104 
050106 
050112 
050116 
050122 
050124 
050124 
050130 
050154 
050140 
050142 
050144 
050150 
050152 
050152 
0S0156 
050162 
050166 
050170 
050172 
050176 
050200 
050200 
050204 
050210 
050212 
050214 
050220 
050220 
050222 



050224 

050226 
050230 
050230 
050232 
050234 
050236 
050240 
050240 



012746 
012746 
010600 
104415 
062706 
0OO137 

013746 
012746 
012746 
010600 
104415 
062 706 
013701 
032701 
0O1013 

013746 
012746 
012746 
010600 
104415 
062706 
00O413 

013746 
012746 
012746 
010600 
104415 
062706 
000400 

012746 
012746 
010600 
104415 
062^06 

104432 
001^54 



OOOOOO 



140006 
050240 
OOOOOO 
000012 

000 



051062 

000002 



000006 
050200 

002150 
051126 
000002 



000006 
050254 
000004 



002150 
051244 
000002 



000006 



002150 
051171 
C00002 



000006 



051000 
OOOOOl 



000004 



JMP 631 

200»j PRINTX OT390N2.UNITN 



MOV T396FR*6,R1 

BIT #eiT2,Rl 

BNE 2101 

PRINTX OT39WPN.LNITN 



BR 631 

2101: PRINTX OT39WKT .UNITN 



BR 631 

63»i PRINTX OT39NFL 



64$: 



1 * 



EXIT 



TST 



.LOCAL TEXT MESSAGES FOR TEST 
1 - 

i LOCAL STORAGE FOR THIS TEST 
i • 

T390LY: .WORD 

.BLK8 10- < . TUV2AC7> 
T39PACKET: 

.WORD 140006 

.WORD T39TAD 

.WORO 

.WORD 10. 
T39TAD: 

T398S0: .BYTE 





SEQ 198 


MOV 


♦T390F2,-(SP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


06, SP 


|D0 NOT TRY TO GET ANYMORE INFO 


4 


I "DRIVE NUMBER XX IS ON-LINE" 




MOV 


UNITN.-(SP) 


MOV 


0T390N2.-CSP) 


MOV 


o:\-csp) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


06, SP 


iREAD EXTENDED STATUS (XSTO) 




iIS DRIVE WTITE PROTECTED 




|BR, IF WRITE PROTECTED 




1 "DRIVE NUMBER IS NOT WRT PRO" 




MOV 


UNITN,-(SP) 


MOV 


0TS9WPN, *(SP) 


MOV 


♦2, -(SP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


06, SP 


iSKIP OVER 




l "DRIVE NUMBER XX IS WRT PRO" 




MOV 


UNITN.-CSP) 


MOV 


♦T39WRT..CSP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


06, SP 


iBR, IF NO MORE DRIVES 




{NEW LINE 




MOV 


OT39NFL,-(SP) 


MOV 


01. -(SP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


04. SP 


lEXIT THIS 5ECTI0N 




TRAP 


C»EXIT 


.WORD 


L 10065 . 



jDELA; COUNTER FOR TEST 

I COMMAND PACKET FOR TEST 

I WAITE SUBSYSTEM MEM. CMD. ACK.CVC-L 

lADDRESS OF CHARACTERS TICS BLOC* 

tSTARTING VALUE Of BLOCK SIZE 
jCHARACTERISTICS OATA BLOCK 
iBGELO BYTE 



?i 



.ST 6: CONflGURATION TYPeSuT 
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7 720 
7721 
7722 
7 72 J 
7724 
7 725 
7 727 
7729 
7730 
7731 
7 732 
7733 
7 734 
7735 
7736 
7737 
773« 
7 739 
7740 
7742 
7744 
7745 
7746 
7747 
7748 
•750 
7 752 
7753 
7754 
7 755 
7756 
7757 
7 758 
7 759 
7 760 
7 761 
7 762 
7 763 
7764 
7 765 
7 766 
776 7 
7 768 
7 769 
7 7 70 
7771 
7772 
7773 
7774 
7775 
7 7 76 
7777 
7 7 78 
7/79 
7 780 
7/81 
77*2 



050241 
050242 
050244 
050246 



050722 
050730 
050730 
050732 
050734 
050736 



050740 
050740 
050742 
050744 
050746 
050750 
050760 
050762 



050 764 
0507 70 
050 7/2 
U507 74 
050776 



051000 
051003 
051062 
051126 
051171 
051244 
051323 



000 
000000 
000000 



140004 
050740 
000000 
000012 



050246 
OOOOOO 
0OO400 
OOOOOO 

140012 
OOOOOO 



140O05 
OOOOOO 
OOOOOO 
000400 



045 
123 
045 
045 
045 
045 
045 



051406 OOOOOO 



116 
164 
116 
116 
116 
116 
116 



T396SI: .BYTE 

T396S2: .WORD 

, WORD 

T39BFRj ,BLKW 150, 



T39PK2 



BLKB 10- <. -TUV2A£7> 





.WORD 


140004 




.WORD 


T390TA 




.WORD 







.WORD 


10. 


TS90TA: 








.WORD 


T396FR 




.WORD 







.WORD 


256. 


T39EAI; 


.WORD 







.BLKB 


10-<.-TUV2A67> 


T39PK3; 


.WORD 


140012 




.WORD 





iWRITE 


TAPE PACKET 


1 


.BLKB 


10-<. -TUV2A67> 


139PK4; 


.WORD 


140005 


T39WR; 


.WORD 







.WORD 





T39SIZ: 


.WORD 


256, 



lLOCAL TEXT MESSAGES FOR TEST 



SEQ 199 



iBSELl BYTE 

jBSELl WORD 

iDATA 

j MESSAGE BUFFER 



iCOMMANO PACKET FOR TEST 

iWRITE CHARA. MEM. CMNO. . ACK,CVC«1 

I ADDRESS OF SELECT DATA BLOCK 

I STARTING VALUE OF BLOCK SIZE 



I SELECT DATA BLOCK 

I ADDRESS OF MESSAGE BUFrER 

iLENGTH OF MESSAGE BUFFER 
lEAI BIT WORD 

i MESSAGE BUFFER RELEASE COMMANO 
l NOT USED 



iWRITE. ACK. CVC-1 COMMANO 
, ADDRESS OF WRITE BUFFER 
j MORE ADORESS OF WRITE BUFFER 
I SIZE OF RECORD 



000 T39WFL: 

141 T39NE; 

045 T390F2 

045 T390N2 

045 T39WRT 

045 T39WPN 

045 T59MCL 

T39RL; 



t LOCAL 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

.EVEN 

.EVEN 



Stend 

*N#A 
tff*A 
#N*A 

*N#A 
*N*A 



alone Coof igur«t ion Typeout Not Executed 1 
Driv« Nu»*6«r #D2*A le Off -Line' 
Drive Nuiwber #02*A le On-Lin«' 
Driv« Nu«*>er *02*A le Write Prot«ct«d' 
Driv« Nunbtr #02*A Im NOT Writ* Protected' 
Controller Microcode Revision Level »*02' 







STORAGE FOR TH15 TEST 



CZTKFA TK -25 FRT ENQ FUNC 02 
TEST 6 j CONFIGURATION TYPEOUT 
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SEQ 200 



7785 


051410 


OOOOOO 




7784 


051412 






7785 


051412 






7 786 


051416 


012701 


050250 


7787 


051422 


012721 


140006 


7788 


051426 


012721 


050240 


7 789 


051452 


0O5021 




7790 


051454 


012721 


000006 


7791 


051440 


005021 




7792 


051442 


005021 




7795 


051444 


005011 




7 794 


051446 


000207 




7 793 








7 796 








7797 








7 798 








7 799 








7800 


051450 


105 


157 


7801 








7802 


051476 
051476 








05147b 


104401 





T590AT: .WORD 

T39RESTs 

SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

CLR 

CLR 

R1S 



♦T59PACKET.R1 

♦140006, (Rl)# 

♦T39TAD.CR1)* 

(Rl)* 

*6.,(R1)* 

(Rl)» 

(Rl)* 

CRD 

PC 



jLOGICAL RESPONSE TO QUESTION 

I SAVE THE REGISTERS 

I START OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK,CVC»1 

I ADDRESS OF DATA BLOCK 

I EXTENDED ADDRESS 

l SIZE OF OATA BLOCK IN BYTES 

i CLEAR 9SEL0 AN© BSEL1 

I CLEAR SEL2 

I CLEAR DATA AREA 

jRETURN 



jLOCAL TEXT MESSAGES FOR TEST 
i - 

156 TST39ID: .ASCIZ 'Configuration Typ«out' 
.EVEN 
ENOTST 



L 10065; 



7805 



TRAP CSETST 



* 



ZTKKA TK 25 FRT ENO FUNC 02 


EST 7: 


SCOPE LOOPS 




7805 








7806 








7807 








7808 








7809 








7810 








7811 








78 12 








7815 








7814 








7815 








7816 








781/ 








7818 








7819 








7820 








7821 








fuZ2 








7825 








7824 








7825 








7826 








7827 








7828 








7829 








7850 








7851 








7852 








7855 








7854 








7855 








7856 








785 7 








78 58 








78 59 








7840 








7841 








7842 








7845 








7844 








7845 








7846 


051500 
051500 






7847 


051500 


0O5O37 


002170 


7848 


051504 


OC5C37 


005100 


7855 


051510 


0057 57 


002162 


7854 


051514 


001405 




7855 


051516 


012700 


052711 


7856 


051522 


0004 02 




785 7 


051524 


0127O0 


052 756 


7858 


051550 


004 7.57 


017410 


7859 


051554 


004 7217 


021404 


7860 


051540 


105402 




7861 


051V*-> 


oooir.? 


052174 


7862 


05i' -o 


C22737 


C'OOOl 


7865 


051554 


001402 




7864 


051556 


000137 


052174 



G16 

MACRO M1200 20 -APR -84 08:12 PAGE 120 

.SBTTL TEST 7s SCOPE LOOPS 



THIS TEST MUST BE STARTED AS FOLLOWS} 

AT THE DIAGNOSTIC SUPERVISOR PROMPT "DR>" 
TYPE »'START/FLAG:PNT/TEST:7/PASS:1 M 



SEQ 201 



THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "SCOPE 
LOOPS" USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE CONTROLLER MOOULE . THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
"LOOP ON ERROR" OR "LOOP ON TEST (SUBTEST)" FACILITIES DON'T 
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E. THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUSING A BUS ERROR TRAP. EVEN THOUGH THE DEVICE ADDRESS 
SELECTEO BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
HARDWARE DIP SWITCHES). THE FOLLOWING MC>W OF SCOPE LOOPS ARE 
AVAILABLE : 

CODE SCOPr. LOOP 

HELP. DISPLAY THIS MENU. 

1 TSBA READ ACCESS 

2 TSSR REAO ACCESS 

3 INITIALIZE (TSSR WRITE ACCESS) 

4 TSDB HIGH BYTE WRITE *:CESS 

5 TSD6 LOW BYTE WRITE ACCESS 

6 TSSR BYTE WRITE (SELF-TEST) 

7 RETURN TO DIAGNOSTIC SUPERVISOR 

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 
AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 



BGNTST 





CLR 


FATFLG 




CLR 


KTFLG 




TS* 


TSTCNT 




BEQ 


l« 




MOV 


♦ T4ONE.R0 




BR 


1001 


1*: 


MOV 


#TST40I0.R0 


100*} 


v'SR 


PC.TSTSETUP 




JSR 


PC.LHKMAN 




BCS 


102$ 




JMP 


64* 


1021: 


CMP 


♦1, TSTCNT 




BEQ 


2$ 




JMP 


641 



T7j : 
iCLEAR FATAL ERROR FLAG 
iHOLD OF KTll 

iIS THIS FIRST TEST IN RUN ? 

iCONTINUC TEST IF FIRST IN RUN 

i "TEST NOT EXECUTED" 

lJUST EXIT IF NOT 

I TEST ID MESSAGE 

jDO THE COT^IUN SETUP 

j SEE IF MANUAL INTERVENTION ALLOWED 

jCARRY SET IF INTERVENTION ALLOWED 

jEXIT IF NO MAMJAL INTERVENTION 

jUAS THIS THE FIRST TEST IN SEQ 

jBR. IF IT WAS 

,JMP TO ENO OF TEST 



«m, T §c8fc F PSolg DFUNC#2 



MACRO M1200 20- APR «4 08:12 



H16 

*>AGE 120-1 



SEQ 202 



7865 
7866 
7867 
7871 



78 72 
7873 
78 74 
78 75 
78 76 
78 7 7 
7878 



7879 
7880 
7881 
7882 
7883 
7884 
7885 
7886 
7887 
7888 
7889 



7890 
7891 
7892 
7893 
7894 
7895 
7896 
7897 
7898 
7899 
79O0 
7901 
7902 
7903 
7904 
7905 
7906 
7907 

7908 
7909 

7910 
7911 
7912 
7913 
7914 
7915 
791b 



051562 
051566 
051570 
051572 
051572 
051574 
051576 
051600 
051602 
051606 
051612 
051616 
051620 
051622 
051624 
051624 
051630 
051632 
031636 
051644 
051646 
051652 
051660 
051664 
051670 
051674 
051700 
051704 
051704 
051710 
051712 
051714 
051720 
051722 
051724 
051726 
051730 
051732 
051734 
051736 



051740 
051740 
051744 

051746 
051746 
051752 



051754 
051760 
051762 
051766 



0O4737 
103405 
010001 

104455 
001275 
003550 
011666 
012700 
012701 
004737 
005700 
001760 
010004 

012700 
104441 
005037 
03273 7 
001005 
005237 
052737 
012701 
011137 
012721 
011137 
012711 

012700 
104441 
006304 
000174 
051562 
051740 
051746 
051754 
051770 
052004 
052020 
052174 



016500 
000775 



016500 
000775 



0O4737 
010OO1 
010165 
00077^ 



016644 



2*5 JSR PC.SOFINIT 

BCS 5$ 

MOV R0.R1 

ERRDF ERRNO , SFIERR , SF IMSG 



052206 
OOOO10 
021162 



000340 

052200 
000100 

052200 
000100 
000060 
052202 
052106 
052204 
000340 

000000 



051720 



177560 
177560 



177776 

000000 

021100 
OOQQQO 



5$: 


MOV 


*SCMENU,RO 




MOV 


♦8..R1 




JSR 


PC.GETSEL 




TST 


RO 




BEQ 


2$ 


3$: 


MOV 


R0,R4 




SETPRI 


0PRIO7 




CLR 


TTION 




BIT 


*100,0«TTICSR 




BNE 


4$ 




INC 


TTION 




BIS 


*100,»*TTICSR 


4$: 


MOV 


♦TTIVEC.R1 




MOV 


(Rl).TVECSAV 




MOV 


♦60$, CRD* 




MOV 


(Rn.TPRISAV 




MOV 


♦PRI07.CR1) 




SETPRI 


*PRIOO 




ASL 


R4 




JMP 


B6$(R4) 


6$: 


.WORD 


2$ 




.WORD 


10$ 




.WORD 


151 




.WORD 


20$ 




WORD 


25$ 




.WORD 


30$ 




.WORD 


35$ 




.WORD 


65$ 


10$: 






12$: 


MOV 


TSBA(R5),R0 




BR 


12$ 


15$: 






18$: 


MOV 


TSSR(R5),R0 




BR 


18$ 


20$: 


JSR 


PC.GETPAT 




MOV 


R0.R1 


^^ll 


MOV 


RI.TSSRCR5) 




eR 


221 



jDO A SOFT INIT 

I BRANCH IF OK 

i CONTENTS Of TSSR REGISTER 

I REPORT FATAL ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

MENU OF SCOPE LOOP SELECTIONS 

MAXIMUM ALLOWED SELECTION 

GO GET THE OPERATORS SELECTION 

WAS ZERO SPECIFIED ? 

REPEAT MENU IF YES. 

SAVE THE MENU SELECTION 

RAISE THE PRIORITY 

MOV 
TRAP 

ASSUME INTERRUPTS ARE ENABLED 

ARE TTI INTERRUPTS ON ? 

BRANCH IF YES 

FLAG SET IF INTERRUPTS OFF 

ENABLE INTERRUPTS 

START OF TTI VECTORS 

SAVE THE CURRENT TTI VECTOR 

SET NEW INTERRUPT ROUTINE 

SAVE THE VECTOR PRIORITY 

USE PRIORITY SEVEN 

LOWER INTERRUPT BR LEVEL 

MOV 
TRAP 

CONVERT TO WORD OFFSET 

JUMP TO PROPER LOOP 

RETYPE THE MENU 

TSBA READ ACCESS 

TSSR REAO ACCESS 

TSSR WRITE ACCESS 

rSOB HIGH BYTE WRITE ACCESS 

TSDB LOW BYTE WRITE ACCESS 

TSSR BYTE WRITE (SELF-TEST) 

LEAVE THE TEST 



,READ TSBA REGISTER 
jLOOP UNTIL HALTED 



;READ TSSR REGISTER 
iLOOP UNTIL STOPPED 



j RE AD TH£ OA I A PATTERN 
iDATA PATTERN FOR LQQP 
jWRITfc. QATA TO TSSR 
iLQQP 



C$ERDF 
701 

SFIERR 
SFIMSG 



*PRI07 # R0 
CISPRT 



♦PRIOO.RO 
C5SPRI 



TEST 7: SctfPE LOOP 



NO 
S 



KUNC 02 



7917 
7916 
7919 
7920 
7921 
7922 
7923 
7924 
7925 
7926 
792 7 
7928 
7929 
7930 
7931 
7932 
7933 



7934 
7935 
7936 
7937 
7941 



7942 
7943 
7944 
7945 
7946 
794/ 
7948 
7949 
7950 
7951 
7952 
7953 
7954 
7955 
7956 
7957 
7956 
7959 
7960 
7961 
7962 
796 3 
7964 



051770 
051770 
051774 
051776 
052002 



052004 
052004 
052010 
052012 
052016 

052020 
052024 
052026 
052032 
052032 
052036 
052040 
0^2044 
052046 
052052 
052054 
052060 
052062 



0520 70 
0520 72 
0520 72 
052074 
052076 
052100 
052102 



052106 
052110 
052114 
052120 
052124 
052126 
052134 
052140 
052146 
052154 
052160 
052162 
052170 
052172 

05217* 



004737 
010001 
110165 
000775 



004737 
010001 
110165 
000775 

004737 
010001 
110165 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
036527 



001356 

104455 
001276 
052772 
011666 
000137 



010O46 
113700 
042700 
122700 
001021 
012766 
005066 
013737 
013737 
005737 
001403 
042737 
012600 
000002 



021100 
177777 

021100 
177776 

021100 
000000 
000250 
002116 
177772 
177756 
OOOOOO 



000200 



17 7562 
000200 
000015 

051562 
000004 
052202 
052204 
052200 



MACRO M1200 
25$: 
27$: 

30$: 

32$: 

35$: 
37$: 



116 

20-APR-84 08:12 PAGE 120-2 



SEU 203 



JSR 
MOV 
MOVB 
BR 



JSR 
MOV 
MOVB 
BR 

JSR 
MOV 
MOVB 
DELAY 



PC.GETPAT 
R0.R1 

R1.TSDBHCR5) 
27$ 



PC.GETPAT 

RO.Rl 

RI.TSDBCR5) 

32$ 

PC.GETPAT 

RO.Rl 

R1.TSSRCR5) 

250 



000200 



BIT 



BNE 
ERRDF 



JMP 



TSSR(R5).0SSR 



37$ 
ERRN0.T40NSR.SFIMSG 



200 



» ♦ 



60$ 



0O0O02 

000060 
000062 



000100 17 7560 



61$: 



64$: 



, CONSOLE INTERRUPTS 


MOV 


RO . ( SP ) 


MOVB 


»#TTIBFR,RO 


BIC 


#200, RO 


CMPB 


♦15, RO 


BNE 


61$ 


MOV 


#2$,2(SP) 


CLR 


4(SP) 


MOV 


TVECSAV,»#TTIVEC 


MOV 


TPRISAV,S#TTIVEC*2 


1ST 


TTION 


BtQ 


61$ 


BIC 


«ioo,a*TucsR 


MOV 


(SP)*,RO 


RTI 





iREAD THE DATA PATTERN 
jOATA PATTERN FOR LOOP 
»WRITE THE DATA TO TSDB 
j LOOP UNTIL STOPPED 



HIGH BYTE 



jREAD THE DATA PATTERN 
iDATA PATTERN FOR LOOP 
jWRITE DATA TO TSSR. LOW BrTE 
jLOOP UNTIL HALTED BY OPERATOR 

iPICK UP THE PATTERN FROM OPR 

iSTORE IN Rl 

iLfRITE BYTE TO TSSR. THIS STARTS MDIAG 

jWAIT 25O0US 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

OEC 

BNE 

i CHECK FOR READY SET. IF A TRAP OCCURS 
j THE TSSR WAS "NOT BACK TO THE BUS" 
I IN TIME. 

j BR. IF 5SR WAS SET (GOOO) KEEP LOOPING 
iPRINT DEVICE FATAL ERROR MESSAGE 

TRAP C$ERDf 

.WORD 702 



#250. (PC)* 


L$DLY.CPO* 


6CPC1 
. 4 

-22CPC) 
. -20 



I GO TO SUPERVISOR ETC. 



.WORD 
.WORD 



T40NSR 
SFIMSG 



l SAVE WORK REGISTER 

iGET THE OPERATOR INPUT 

iSTRIP OFF PARITY BIT 

l IS IT A CARRIAGE RETURN ? 

lJUST EXIT IF NOT 

iRETURN TO MASTER MENU 

jFORCE PRIORITY ZERO 

iRESTORE SUPERVISOR VECTOR 

iRESTORE SUPERVISOR PRIORITY 

jARE SUPERVISOR INTERRUPTS ENABLED V 

iBRANCH IF YES 

I TURN OFF TTI INTERRUPTS 

iRESTORE REGISTLr* 

I RE TURN FROM INTERUPT 



C/TKFA 

TEST 7: 

7966 



796 7 
7968 
7969 
79/0 
7971 
7972 
7973 
79 74 
7975 
79/6 
79/7 
79/6 
79 79 
7980 
7981 
798? 
7983 
7984 
7985 
7986 
7987 
7988 
7989 
7990 
7991 
7992 
7993 
7994 
7995 
7996 
799 7 
7998 
7999 
80O0 
8001 



800/ 
8012 
8018 
8019 
8020 
8021 
6022 
8023 
8024 
8025 
8026 
802/ 
8028 
8029 
8030 
8031 



TK 25 FRT END 

SCOPE LOOPS 



FUNIC 02 



J 16 

MACRO M1200 20-APR-84 08; 12 PAGE 120-3 



SEQ 204 



052174 
052174 
052174 
052176 



052200 
052202 
052204 



052206 
052222 



052236 
052311 
05233 7 
052363 
052407 
052451 
052510 
052546 
052605 
052650 
052651 
052711 
052 756 
0527/2 

053062 
053062 
053062 



104432 
000664 



000000 
000000 
000000 



052236 
052510 



012 
012 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
000 
124 
123 
123 
123 



104401 



052311 
052546 



123 
Oil 
061 
062 
063 
064 
065 
066 
067 



052337 
052605 



105 
060 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 



171 
164 
143 
123 



160 
141 
157 
122 



63$; 
65*; 



EXIT 



TST 



jEXIT TMU TEST 



TRAP 
.WORD 



ctexiT 

L10066- 



i LOCAL STORAGE FOR THIS TEST 



j 



TTION; .WOHD 

TVECSAV: .WORD 
TPRISAV: .WORD 



j WORD SET 
jSAVE TTI 
tSAVE TTI 



IF SUPERVISOR 

VECTOR 
PRIORITY 



TTI INTER OFF 



jMENU FOR OPERATOR INPUT FOR SCOPE LOOPS 
i - 



SCMENUs 



H 
2$ 
31 
4$ 

5* 

61 

7$ 

8$ 

101 

11$ 

12* 

T40NE: 

T5T40I0 

T40NSR: 



.EVEN 
.WORD 
.WORD 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 

.EVEN 

ENOTST 



1*. 21. 3$. 4$, 5$, 6$ 

71,8$, 101,11*. 12$, 



<12>' SELECT 



<12> 




1 
? 
3 
4 
5 
6 
7 



SCOPE LOOP FROM FOLLOWING OPTIONS;' 
Display Thin Menu' 
TSBA Read Acceoo' 
TSSR Reed Access' 
Initioli/e CTSSR Write Access)' 
TSDB High Byte Wr i te Access' 
TSD6 Low Byte Write Access 4 
TSSR Write Byte (Self Test)' 
Return to Diagnostic Svjpervisor' 



Type RETURN To Stop Scope Loops' 

Stand-alone Scope Loops Not Executed' 

ASCIZ 'Scope Loops' 

SSR Foiled To Set After TSSR Write Byt* And 10ms Delay 



L 10066: 



TRAP 



CSETST 



053064 



.SBTTL HARDWARE PARAMETER CODING SECTION 



THE HARDWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THt. 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARc 
INTERPRETED BY JHt SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 

BGNHRD 



K16 



CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 

HARDWARE PARAMETER CODING SECTION 



20 -APR -64 08:12 PAGE 120-4 



SEQ 205 





053064 


000015 








.WORD L10067-LIHARD/2 




053066 








* $HARD{ 


■ 
* 




8032 
















8053 


053066 










GPRMA 


HPM1 ,0,0, 160000 , 177776 , YES 




053066 


000031 








.WORD 


TICODE 




053070 


053120 








.UORD 


HPM1 




053072 


160000 








.WORD 


TILOLIM 




053074 


177776 








.WORD 


TIHILIM 


8034 


053076 










GPRMA 


HPM2,2,0,0,776,YES 




053076 


001031 








.WORD 


TICOOE 




053100 


05314 7 








.WORD 


HPM2 




053102 


000000 








.WORD 


TILOLIM 




053104 


000776 








.WORD 


TIHILIM 


8035 


053106 










GPRMO 


HPM3, 4, 0,340,0,7, YES 




053106 


002032 








.WORD 


TICOOE 




053110 


053173 








.WORD 


HPM3 




053112 


000340 








.WORD 


340 




053114 


000000 








.WORD 


TILOLIM 




053116 


000007 








.WORD 


TIHILIM 


8036 


053120 
053120 








L10O67: 


ENDHRD 
.EVEN 




8037 


053120 


104 


105 


126 


HPM1: 


.ASCIZ 


•DEVICE ADDRESS (TSSR) ' 


8038 


053147 


111 


116 


124 


HPM2: 


.ASCIZ 


•INTERRUPT VECTOR 


8039 


053173 


111 


116 


124 


HPM3: 


.ASCIZ 


•INTERRUPT PRIORITY 


8040 












.EVEN 




8041 

















{GET TS8A/TSDB REGISTER ADDRESS 



jGET VECTOR ADDRESS. 



iCET INTERRUPT PRIORITY 



L16 



:ZTKFA TK-25 
>QFTUARE PAR 



AMETEl* N 8oD:tNS 



02 MACRO M1200 

SECTION 



8043 
8044 
804*) 
8046 
804 7 
8048 
8049 
8050 
8051 
8052 
8053 



8054 



8055 



8056 
8057 
8058 



8059 
8060 
80t)l 
8062 
8063 
0064 
8065 
8066 
8067 
8068 
8069 
8070 
8071 
807? 
8073 



053224 
053224 
053226 
053226 
053226 
053230 
053232 
053234 
053234 
053236 
053240 



053242 
053242 



053242 
053306 
053336 
053366 



80/4 
8075 

8076 
807 7 
8078 
80/9 
8080 



053416 
053416 
053420 
053420 
053422 
05 3424 
053426 
053430 
053432 
053434 



000006 



000130 
053242 
177777 

001130 
053306 
177777 



105 
111 
120 
120 



000007 

023634 
024674 
026226 
032160 
043426 
04 7556 
051500 



116 
116 
105 
105 



20-APR-84 08:12 PAGE 121 



.SBTTL SOFTWARE PARAMETER CODING SECTION 



SEQ 206 



THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NJT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACHOS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR, 



L$SOFT:t 



BGNSET 

.WORD L10070-LJS0FT/2 



L10070: 



101 SPM1 

110 SPM4 

122 SPM6 

122 SPM7 



GPRML 

.WORD 

.WORD 

.WORD 

GPRML 

.WORD 

.WORD 

.WORD 

GPRMO 

GPRMO 

ENDSFT 

.EVEN 



,ASCI2 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.SBTTL 



SPM1, 0,-1. YES 

TICODE 

SPM1 

-1 

SPM4, 2,-1, YES 

TICODE 

SPM4 

-1 

SPM6 , 4, D, 7777, 0,7 777, YES 

SPM7,6,D, 7777,0, 7777, YES 



I GET RAM DUMP FLAG 



, GET ITERATION CONTROL 



i GET LOCAL ERROR LIMIT 
j GET GLOBAL ERROR LIMIT 



'ENABLE CONTROLLER RAM DUMP ON ERROR 1 
•INHIBIT ITERATIONS 
•PER TEST ERROR LIMIT 
•PER UNIT ERROR LIMIT 

PATCH AREA 



DISPATCH TABLE 
♦** MOVE TO FRONT OF PROGRAM FOR RELEASE *** 



DISPATCH TESTNO 

.WORD 7 
L IDISPATCH; : 

.WORD Tl 

.WORD T2 

.WORD T3 

.WORD T4 

.WORD T5 

.WORD T6 

.WORD T7 



l FINALLY A GENEROUS PATCH AREA. 

» AND AN ADJUSTMENT TO ACCOUNT FOR \HE "LASTAD BIT7" HACK 
i DESCRIBED IN "SUPPRG.HLM" (FOR REV C). 



CZTKFA TK-25 FRT END FUNC #2 
PATCH AREA 

8081 

6082 053436 

8083 

8084 

8085 

3086 

808? 053436 



MACRO M1200 20-APR-84 08:12 



M16 

PAGE 121-1 



SEQ 207 



8088 
8089 
8090 
8091 
809? 
8093 



8094 
8095 
8096 
8097 

8098 
8099 
8100 



053436 
053440 
053442 



053442 
053442 
053442 
053444 
053446 
053446 
053450 
053452 
053454 
053454 
053454 



053454 
000005 



000000 
000003 

172522 
000224 
000240 



000001 



PATCH.- 



LILASTm 



♦ ♦ 



I -- 



L10071: 



U 10073 j 



.EVEN 

.IF NZ..6377 

.-..'377 + 1 

.ENOC 

LASTAD jSET LAST USED ADDRESS. 

.EVEN 

.WORD T*FREF. 

.UORD T$SIZE 

.SBTTL HARD CODED P-TABLE 

DIAGNOSTIC IS PRE -PARAMETERIZED PER THIS TABLE 

BGNSETUP 1 

BGNPTAB 

.WORO 

.WORD L10073-./2-1 



.WORD 
.WORD 
.WORD 
ENDPTAB 

ENDSETUP 

.END 



172522 

224 

PRXG5 



USER 


D0CUMENTA1 


r ION . 


...Bl 

:::SI 


SPACE 


SPACE RECO. . 


. ,B5 


CHKMAN 


- CHECH 


, MANU, 


. . .89 


TEST 


4: 


BASIC 


READ . . 


. .913 


USER 


DOCUMENTATION . 
5QCUMENTA ION . 


SPACE 


SPACE RECO, . 


. .C5 


ENVIRN 


- SETUF 


> FREE. 


. ..C9 


TCIST 


4; 


BASIC 


READ . . 


..C13 


USER 


SPACE 


SPACE RECO.. 


. .05 


KTINIT 


- SETUF 


» KT11. 


...09 


TES1 


4: 


BASIC 


READ . . 


. .D13 


USER 


DOCUMENTAT 


ION . 


. . .El 


WRTCHR - 


WRITE CHAR, , 


. ,E5 


PROTECTION TABLE 


. . .E9 


TEST 


4: 


BASIC 


READ . , 


. ,E13 


USER 


DOCUMENTA 1 


riON . 


. . .Ft 


REWIND - 


POSITION T. . 


. ,F5 


INITIALIZE SECTION . 


. . ,F9 


TEST 


4: 


BASIC 


READ . . 


. .F13 


USER 


DOCUMENTATION . 


...Gl 


CKRAM 


COMPARE RA, . 


. ,G5 


INITIALIZE SECTION . 


. . ,G9 


TEST 


4: 


BASIC 


READ . , 


. .G13 


USER 


DOCUMENTATION . 


...HI 


RAMER - READ ANO DIS 


. ,H5 


INITIALIZE SECTION , 


. ..H9 


TEST 


4: 


BASIC 


READ . , 


. .H13 


USER 


DOCUMENTATION . 


...11 


RAMER - READ ANO DIS. . 


. .15 


ADO ANO 1 


3R0P UNITS S. 


. . .19 


TEST 


4: 


BASIC 


READ . . 


..113 


user 


DOCUMENTATION . 


. , .Jl 


CKRAM2 - 


COMPARE RA.. 


. ,J5 


ADD ANO 1 


3R0P UNITS S, 


. . .J9 


TEST 


4: 


BASIC 


READ . . 


. .J13 


USER 


DOCUMENTATION . 


...Kl 


CKMSG 


COMPARE WR . . 


. .K5 


CLEAN 


-UP 


ANO REPORT . 


. . .K9 


TEST 


4: 


BASIC 


READ . . 


. .K13 


USER 


DOCUMENTATION . 


.. .LI 


CKMSG2 - 


COMPARE EX. . 


. .L5 


CLEAN 


-UP 


ANO REPORT . 


. . ,L9 


TEST 


4: 


BASIC 


READ . , 


. .L13 


USER 


DOCUMENTATION . 


...Ml 


CKMSG2 - 


COMPARE EX . . 


. .M5 


TEST 


1: 


INITIALIZE . 


. . .M9 


TEST 


4: 


BASIC 


READ . . 


. .M13 


USER 


DOCUMENTATION . 


. ..Nl 


CKMSG2 - 


COMPARE EX.. 


. ,N5 


TEST 


1: 


INITIALIZE . 


. ..N9 


TEST 


4: 


BASIC 


READ . , 


. .N13 


USER 


DOCUMENTATION . 


. ..U2 


CKMSG2 - 


COMPARE EX . . 


. ,B6 


TEST 


1: 


INITIALIZE . 


. . .BIO 


TEST 


4; 


BASIC 


READ . , 


. .B14 


USER 


DOCUMENTATION . 


...C2 


ADDSSR - 


PRINT TEST.. 


. .C6 


TEST 


1: 


INITIALIZE . 


. . .CIO 


TEST 


4: 


BASIC 


READ . , 


..C14 


USER 


DOCUMENTATION . 


. ..D2 


FIFEXP - 


PRINT FIFO.. 


. .06 


TEST 


2: 


OFF-LINE AN. 


. . .010 


TEST 


4: 


BASIC 


READ . . 


. .D14 


USER 


DOCUMENTATION . 


. ..E2 


MSGSTAT - 


PRINT STAT.. 


. .E6 


TEST 


2: 


OFF-LINE AN. 


. ..E10 


TEST 


4: 


BASIC 


READ . . 


. .E14 


USER 


DOCUMENTATION . 


. . .F2 


MSGLOOP - 


PRINT LOOP. . 


. .F6 


TEST 


2: 


OFF-LINE AN. 


• ..F10 


TEST 


4; 


BASIC 


READ . . 


. .F14 


USER 


DOCUMENTATION . 


. . .G2 


MSGSUB - 


PRINT WRITE. . 


..G6 


TEST 


2: 


OFF-LINE AN. 


. . ,G10 


TEST 


4: 


BASIC 


READ . . 


. .G14 


USER 


DOCUMENTATION . 


. ..H2 


PRAMPKT - 


PRINT RAM . . 


. » Ho 


TEST 


2: 


OFF-LINE AN. 


. . ,H10 


TEST 


4: 


BASIC 


READ . , 


. .H14 


USER 


DOCUMENTATION 


...12 


PRMESS - 


PRINT CONT.. 


. .16 


TEST 


3: 


BASIC 


WRITE. 


. ..110 


TEST 


4: 


BASIC 


READ . . 


. .114 


PROGRAM HEADER 


. . .J2 


PRMESS - 


PRINT CONT.. 


. .J6 


TEST 


3: 


BASIC 


WRITE. 


. . .J10 


TEST 


4: 


BASIC 


READ . . 


. .J14 


DEFAULT HARDWARE P~T. 


. . .K? 


PRMESS - 


PRINT CONT. . 


. ,K6 


TEST 


3: 


BASIC 


WRITE. 


. . .K10 


TEST 


4: 


BASIC 


READ . . 


. .K14 


SOFTWARE P-TABLE 


. . .Li? 


PRMSGEXP 


- PRINT EXP.. 


, .L6 


TEST 


3: 


BASIC 


WRITE. 


. . .L10 


TEST 


4: 


BASIC 


READ . 


. .114 


SOFTWARE P-TABLE 


.. .M2 


PRMSGEXP 


- PRINT EXP. . 


. .M6 


TEST 


3: 


BASIC 


WRITE. 


. . ,M10 


TEST 


4. 


BASIC 


READ .. 


..M14 


GLOBAL ECSUATES SECTI. 


...N2 


PRBYTEXP 


- PRINT ERR.. 


. ,N6 


TEST 


3: 


BASIC 


WRITE. 


. ..N10 


TEST 


4: 


BASIC 


READ ., 


..N34 


MEMORY MANAGEMENT DE . 


. ,.B3 


PRBYTEXP 


- PRINT ERR. . 


. ,B7 


TEST 


3; 


BASIC 


WRITE. 


. ..Bll 


TEST 


4. 


BASIC 


READ . . 


. .B15 


MEMORY MANAGEMENT DE . 


. . .C3 


EXPREC - 


PRINT EXPO. . 


. ,C7 


TEST 


3: 


BASIC 


WRITE, 


. . .Cll 


TEST 


4: 


BASIC 


READ . 


..C15 


TK-25 REGISTER ANO P. 


.. .03 


EXPBRtC - 


PRINT EXPD. . 


. .07 


TEST 


3: 


BASIC 


WRITE, 


. . .Dll 


TEST 


4. 


BASIC 


READ . 


. .015 


TK-25 REGISTER ANO P. 


. . ,E3 


RAMTADD - 


PRINT TEST.. 


. ,E7 


TEST 


3: 


BASIC 


WRITE. 


. . .Fll 


TEST 


5: 


MANUAL 


INTER . 


. .E15 


TK-25 REGISTER ANO P. 


. ..F3 


TIMEXP - 


PRINT TIME, . 


. ,F7 


TEST 


3: 


BASIC 


WRITE. 


. . .Fll 


TEST 


5: 


MANUAL 


INTER. 


. .F15 


TK-25 REGISTER ANO P. 


...G3 


BADSSR - 


PRINT TSSR . . 


. .G7 


TEST 


3: 


BASIC 


WRITE. 


. ..Gil 


TEST 


5: 


MANUAL 


INTER. 


..G15 


TK-25 REGISTER ANO P. 


...H3 


GLOBAL SUBROUTINES S.. 


. ,H7 


TEST 


3: 


BASIC 


WRITE. 


. . .Hll 


TEST 


5: 


MANUAL 


INTER. 


. .H15 


YK-25 REGISTER ANO P. 


. . .13 


CHKAMB - 


CHECK TSSR. . 


. .17 


TEST 


3: 


BASIC 


WRITE. 


. ..Ill 


TEST 


5: 


MANUAL 


INTER. 


. .115 


TK-25 REGISTER ANO P 




ENAINT.DSBINT - F.NAB . . 


. .J7 


TEST 


3: 


BASIC 


WRITE. 


. . ,J11 


TEST 


5: 


MANUAL 


INTER. 


. .J15 


SPECIAL MACROS ANO 0. 


.. .K3 


INTR 


INTERRUPT . . 


. ,K7 


TEST 


3: 


BASIC 


WRITE, 


. . .Kll 


TEST 


5: 


MANUAL 


INTER. 


. .K15 


SPECIAL MACROS ANO 0. 


. . .L3 


UAITF 


WAIT FOR S. . 


. ,L7 


TEST 


■" t 


BASIC 


WRITE, 


. . .Lll 


TEST 


5: 


MANUAL 


INTER . 


. .L15 


GL08AL DATA SECTION . 


. . .M3 


CHKTSSR - 


CHECK TSSR. . 


. .M7 


TEST 


*-* I 


BASIC 


READ . 


. . .Mil 


TEST 


5: 


MANUAL 


INTER. 


. .M15 


TSTBLK - TEST DATA , 


...N3 


XNXh 


CHECK FOR . . 


. ,N7 


TEST 


4: 


BASIC 


READ . 


...Nil 


TEST 


5: 


MANUAL 


INTER . 


. .N15 


GLOBAL ENVIRONMENT 5. 


. . . ti-l 


TSTLOOP - 


CHECK ITER . . 


. .88 


TEST 


4: 


BASIC 


READ . 


. . ,B12 


TEST 


6: 


CONFIGURATIO, 


. ,»16 


GLOBAL TEXT MESSAGES. 


. . .L4 


1ST SET UP 


- PRINT TES. . 


. ,C8 


TEST 


4: 


BASIC 


READ , 


. . .C12 


TEST 


6: 


CONFIGURATii). 


. Xlh 


GLOBAL. TEXT MESSAGES. 


...D4 


1 b i LNU 


I'M INI I HMO, 


. .08 


TEST 


4; 


BASIC 


READ . 


. . ,D12 


TEST 


6: 


CONFIGinAlUJ. 


. .D16 


GLOBAL ERROR REPORT . 


. . ,E4 


INCERK - 


INCREMENT . 


. .E8 


TEST 


4: 


BASIC 


READ . 


. . .F.12 


TEST 


6: 


CONFIGURATIO. 


. .E16 


PRITSSR - PRINT TSSR. 


. . .F4 


CKDROP - 


CHECK IF U. 


. ,F8 


TEST 


4: 


BASIC 


READ . 


. . ,F12 


TEST 


6: 


CONFIGURATIO. 


. .K16 


PRITSSR - PRINT TSSR. 


. . .04 


KTON.KTOTF - EN, 


. ,G8 


TEST 


4: 


BASIC 


READ . 


. , ,G12 


TEST 


7: 


SCOPE 1 


-OOPS . 


. .G16 


PRITSSR - PRINT TSSR. 


. . .H4 


SETMAP - 


SETUP PAR6. 


. ,H8 


TEST 


4: 


BASIC 


READ . 


. . ,H12 


TEST 


7: 


SCOPE 1 


.OOPS . 


. . ,Hif> 


PRIPKT - PRINT THE . 


. . .14 


FILLMEM - 


FILL MEMOR. 


. .Id 


TEST 


4: 


BASIC 


READ . 


. . .112 


TEST 


7: 


SCOPE 


.OOPS . 


. . .116 


PRIPKT - PRINT THE . 


14 


CMPriEM - 


COMPARE ME. 


. .J8 


TEST 


4: 


BASIC 


READ . 


. ..J12 


TEST 


7: 


SCOPE 


_O0PS . 


. . .J16 


PRIBXOR - PRINT EXPO. 


. . .K4 


CMPMEM 


COMPARE ME. 


. .K8 


TEST 


4: 


BASIC 


READ . 


. ,,K12 


HARDWARE PARAMETER C, 


. . .Kit) 


PRIXOR - PRINT EXPO. 


. . .L4 


REGSAV 


SAVE R1-R5. 


. ,L8 


TEST 


4: 


BASIC 


READ . 


. . ,L12 


SOFTWARE PARAMETER C. 


. . .Lib 


PRIEQU - PRINT BIT . 


. . .M4 


GETPAT - 


GET ii BIT , 


. ,M8 


TEST 


4: 


BASIC 


r^EAD . 


. . ,M12 


PATCH AREA 


* 


. ..M16 


PRIADD - PRINT MEMO. 


...N4 


GETSEL - 


ISSUE MENU, 


.,N8 


TEST 


4: 


BASIC 


READ . 


. . .N12 
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5EQ 206 


SYHBOL 


TABLE 


#* 


CI All « 




DCtUGh 


011464 




FATFLG 


002170 G 


WVUVU 


j^j^^ ^ ^^ 




ADOSSR 


011772 


G 


1 000052 




HIMEM ■ 


■ 007776 




ADR 


000020 


G 


CIAUTO- 


• 000061 


DEVCNT 


002166 G 


FEACW 


011554 


HOE ■ 100000 G 




AM8TSS 


006337 




CI8RK - 


» 000022 


DEVOftO 


023964 




FIFEXP 


012022 G 


HPH1 


053120 




ASSEMB- 


• 000010 




CI6SEG- 


• 000004 


DEVNRO 


023503 




FIF1WS 


012074 


HPft2 


053147 




A1716 « 


• 000003 




CtBSUB- 


> 000002 


DEVNXR 


023421 




FIF2T1S 


012143 


tens 


053173 




BADOAT 


003110 


G 


CICEFG- 


• 000045 


DEVONL 


023351 




FILLME 


020374 


IBE 


■ 010000 G 




BADSSR 


016550 


G 


CICLCK" 


• 000062 


OEVSUM 


023314 




FNOINT 


004113 


IDU 


. 000040 G 




BAR 


• 174402 




CICLEA' 


• 000012 


UFPTBC 


002124 


G 


FORCER 


002144 G 


IER 


• 020000 G 




BENBSW 


002174 


G 


CICLOS- 


• 000035 


DIAGMC- 


000000 




FREE 


003072 G 


IFAULT 


004154 




BIE 


. 040000 




CI(XP1« 


. 000006 


DLCYL • 


000177 




FREEMI 


003076 


INCERK 


017744 




BITO « 


000001 


G 


CICVEC- 


' 000036 


OLONER- 


100200 




FRESIZ 


003074 G 


INTCPC 


017020 




BITOO ■ 


. 000001 


G 


CIOCLN- 


' 000044 * 


DLERP • 


177730 




FUSI 


004015 


INTFLA 


017015 




BITOl - 


■ 000002 


G 


CIDOOU- 


• 000051 


OLGETS- 


000004 




FIAU ■ 


000015 


INTMAS 


017014 




BIT02 - 


» 000004 


G 


CIORPT" 


• 000024 


DLRDK>« 


000010 




Ft AUTO- 


000020 


INTR 


017066 G 




BIT03 - 


• 000010 


G 


ctou ' 


■ 000053 


DLRONH- 


000016 




FIBGN - 


000040 


INTREC 


002172 G 




BIT04 i 


■ 000020 


G 


CIEOIT" 


• 000003 


DLSR • 


000013 




FtCLEA- 


000007 


INTVEC 


017016 




BIT05 « 


• 000040 


G 


CIEROT* 


• 000055 


DLUN - 


000006 




FIDO - 


000016 


INTX 


004176 




BIT06 - 


• 000100 


G 


CtER**« 


» 000056 


SB INT 


017054 




FIEND • 


000041 


IOKCKI' 


• 000200 




BIT07 « 


• 000200 


G 


CIERftO' 


• 000060 


DOA012 


004541 




FIHARO- 


000004 


IOKSTP* 


• 000001 




BIT06 ■ 


• 000400 


G 


CIERSF- 


• 000054 


DOFLG 


003060 


G 


FIMW • 


000013 


IPRI 


002160 G 




BIT09 ■ 


• ooicoo 


G 


CIERSO- 


■ 000057 


why 


003030 




FIINIT- 


• 000006 


ISR 


• 000100 G 




BITt ■ 


■ 000002 


G 


CIESCA« 


' 000010 


EF.CON- 


000036 


G 


FIJMP • 


000050 


IVEC 


002156 G 




BITIO ■ 


• 002000 


G 


CIESEG- 


■ 000005 


EF.NEJ- 


000035 


G 


FIHOO - 


000000 


IXE 


• 004000 G 




BIT11 ■ 


■ 004000 


G 


CIESUB" 


» 000003 


EF,PWR. 


000034 


G 


FIMSG « 


000011 


IIAU - 


• 000041 




BIT12 - 


■ 010000 


G 


CIETST- 


* 000001 


EF.RES- 


000037 


G 


FIPROT- 


000021 


1 1 AUTO- 


• 000041 




BIT13 ■ 


■ 020000 


G 


CIEXIT- 


• 000032 


EF, STA- 


000040 


G 


FIPWR « 


• 000017 


IICLN • 


• 000041 




BIT14 • 


• 040000 


G 


CIGETB" 


» 000026 


SH* XDU 


017677 




FIRPT - 


000012 


XIDU ' 


• 000041 




BIT15 • 


• 100000 


G 


CIGETU* 


. 000027 


EN 


000000 




FISEG ' 


» 000003 


Il^«o - 


■ 000041 




BIT2 • 


■ 000004 


G 


CiGMAN 


• 000043 


ENAINT 


017022 




FISOFT- 


• 000005 


IIINIT. 


• 000041 




BIT3 • 


• 000010 


G 


CIGPH*' 


• 000042 


ENVIRN 


021534 




FISRV - 


. 000010 


UNDO ' 


• 000040 




BIT4 - 


• 000020 


G 


CIGPLO 


• 000030 


EPRTSU 


002146 


G 


FI5UB - 


. 000002 


1IHSG - 


■ 000041 




BIT5 > 


- 000040 


G 


CIGPfll* 


» 000040 


EPRT1 


005762 




FISW « 


• 000014 


IIPROT' 


• 000040 




BIT6 


- 000100 


G 


CIINIT' 


- 000011 


EPRT2 


005672 




FITEST- 


■ 000001 


IIPTAB' 


• 000041 




BIT7 ■ 


- 000200 


G 


CIINLP 


- 000020 


EPRT3 


006026 




GOO AT 


003112 G 


IIPWR ■ 


• 000041 




BIT8 


• 000400 


G 


CiriANX' 


• 000050 


ERCT1 


011565 




GERRtIA 


002142 G 


IIRPT • 


• 000041 




BIT9 


• 001000 


G 


Cir«ii 


• 000031 


ERRMI 


0C7202 


G 


GETPAT 


021100 G 


XISEG 


• 000041 




BOE 


• 000400 


G 


CIHSG 


• 000023 


ERRK 


017fc«6 




GETSEL 


021162 G 


IISETU- 


• 000041 




BRINIT 


004355 




CIOPEN 


• 000034 


ERRLO 


002204 


G 


GICNTO- 


• 000200 


IISFT ■ 


• 000041 




BSELO 


• 000000 




CIPNTP 


• 000014 


ERRNO - 


001276 




GIDELM' 


• 000372 


IISRV • 


• 000041 




BSEL1 


• 000001 




CIPNTF 


■ 000017 


ERRVEC- 


000004 


G 


GtOIOP 


000003 


issue ■ 


• 000041 




CHKAJ« 


016714 




CIPNTS 


- 000016 


ERTABE 


003330 




GIEXCP' 




IITST - 


• 000O41 




CHKMAN 


021404 


G 


CIPNTX 


• 000015 


ERTA6L 


003130 




GIHILI- 


■ 000002 


JKWP 


- 000167 




CHKTSS 


017236 




C*OIO 


• 000377 


ESUM 


017660 




GILOLI< 


• 000001 


KIPAR) 


• 172340 




CKOROP 


020154 




ciRoeu 


- 000007 


EVL 


000004 


G 


GINO ■ 


. 000000 


KIPARI 


• 172342 




CKEMAX 


020002 




CIREFG 


• 000047 


EXBCNT- 


000010 




GIOFFS- 


• 000400 


KIPAR? 


• 172344 




CKMSG 


011212 


G 


CIRESE 


• 000033 


EXP9RE 


016352 


G 


GIOFSI' 


■ 000376 


KIPAP3 


• 172346 




CKMSG2 


011332 


G 


CIREVI 


• 000003 


EXPO 


002176 


G 


GIPRMA- 


• 000001 


KTPM4- 


• 172350 




CKRAH 


010534 


G 


CIRFLA 


• 000021 


EXPGOT 


004431 




GIPRMO" 


• 000002 


KIPAR5 


• 172352 




CKRAM2 


011110 


G 


CIRPT 


* 000025 


EXPGT2 


004465 




GIPRHL- 


. oooooo 


KIPAR6 


• 172354 




CHPttEM 


020560 




CISEFG 


- 00O046 


EXPMSG 


002266 


G 


GIRADA 


• 000140 


KIPAR7 


■ 172356 




COW^IG 


020222 




CISPPI 


• 000041 


EXPREC 


016344 


G 


GIRA06 


• OOOOOO 


KIPOPO 


• 172300 




COUNT 


002254 


G 


CISVEC 


• 000037 


EXTA 


005232 




GIRADO 


• 000040 


KIPDR1 


• 172302 




CSR 


- 174400 




CITPRI 


- 000013 


EXTEND 


005230 




GIRA0C« 


• 000120 


KIP0R2 


• 172304 




CSRAOO 


002154 


G 


OAR 


• 174404 


EIENO • 


002100 




GIRAOO- 


• 000020 


KIP0R3 


• 172306 




CTAB 


003116 


G 


DATA 


002256 G 


EILOAO* 


000035 




gixfer 


• 000004 


KIP0R4 


■ 172310 




CTABE 


003130 


G 


DATAKL 


015064 


FATCMK 


020102 




G«tE5 


• 000010 


KIPDR5 


• 1723\^ 




CTABH 


003116 


Q 


OATASC 


021136 


FATERR* 


000060 




H1AD0R 


i 00140Q 


KIPQR6' 


* 172314 





CZTKFA 
SYMBOL 

KIPDR7- 

KTENAB 

KTFLG 

KTINIT 

KTOFF 

KTON 

LERRMA 

LISTAL- 

Loe 

LOOPCN 

LOOPCO 

LOOPFL 

LOT 

LIACP 

LI APT 

LIAU 

L$AUT 

LlAUTO 

LICCP 

LfCLEA 

LICO 

LIDEPO 

LIDESC 

L5D€SP 

LIDEVP 

L$DISP 

L*OLY 

L>DTP 

LlDTYP 

UDU 

LIDUT 

LIDVTY 

LIEF 

LtENVI 

LIETP 

LIEXP1 

LIEXP4 

LIEXP5 

LI HARD 

LIHIME 

LIHPCP 

LIHPTP 

LIHW 

LIICP 

LIINIT 

LILAQP 

LILAST 

LILOAO 

LILUN 

LIMREV 

LI NAME 

t IPRIO 

LIPROT 

LIPRT 

LIREPP 

LIREV 

L*RPT 
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172316 
003102 
003100 
021622 
020246 
020230 
002140 
OOOOCi 
040000 
002164 
012760 
003114 
OOOOIO 
002110 
002036 
022544 
0020 70 
0:.'2750 
002106 
023024 
002032 
002011 
003342 
002076 
002060 
053420 
002116 
002040 
00?034 
022642 
002072 
003334 
002052 
002044 
002102 
002046 
002064 
002066 
053066 
002120 
002016 
002022 
002124 
002104 
021764 
002026 
053442 
002100 
002074 
002050 
002000 
002042 
021754 
002112 
002062 
002010 
023052 



G 
G 

G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 




LISOFT 

LISPC 

LI5PCP 

I.ISPTP 

LISTA 

LISW 

LITEST 

LITIML 

LIUNIT 

L 10000 

L10001 

L 10002 

L 10003 

L10004 

L10005 

L 10006 

L10007 

L10010 

LlOOil 

L10012 

L10013 

L10014 

L10015 

L10016 

L10017 

L 10020 

L 10021 

L 10022 

L 10023 

L 10024 

L 10025 

L 10026 

L 10030 

L10031 

L10032 

L10033 

L10034 

L 10035 

L 10036 

L10037 

L 10040 

L10041 

L10042 

L10043 

L 10044 

L10045 

L 10046 

L10047 

L 10050 

L1005). 

L 10052 

L 10053 

L 10054 

L 10055 

L 10056 

L10057 

L 10060 



053226 
002056 
002020 
002024 
002030 
002134 
002114 
002014 
002012 
002132 
002144 
005226 
011676 
011726 
011744 
011752 
011770 
012006 
012020 
012072 
012242 
012756 
013604 
013626 
016350 
016356 
016364 
016376 
016420 
016446 
016606 
017116 
022474 
022640 
022746 
023022 
023050 
023312 
024672 
026224 
025134 
032156 
026624 
027302 
027510 
027776 
030320 
043424 
032776 
033544 
C54240 
034676 
035324 
035752 
036334 
037010 
037252 



L10061 

L 10062 

L10063 

L 10064 

L 10065 

L10066 

L10067 

L 10070 

L10071 

L10073 

MEMAOO 

MENASC 

MENERR 

MENRES 

MESBTA 

MES8FN 

ME SHEA 

MIME*J 

mVEC ■ 

MPR 

MSA.FR- 

MSA.NO* 

MSA.**- 

MSA.VO- 

MSGEXP 

MSGLOO 

MSGSTA 

M5GSU8 

MS. ATT- 

MS. EXT- 

MS.RSO- 

MS.RSF- 

MS.RST- 

NBA 

NEUPAS 

NOOEV 

NOINIT 

NOINTR 

NOITS 

NOMAN 

NP.IR - 

MP. LOO- 

NP.OUT- 

NP.WRP- 

NSI 

NSINIT 

NUL 

NULCR 

NXM 

NXR 

NXRERR 

NXRX 

N.UU 

0* L 

ONEFIL* 

OIAPTS- 

QIAU * 



037544 

040034 

040510 

047554 

051476 

053062 

053120 

053242 

053446 

053454 

013606 

021353 

021300 

021402 

002716 

014634 

015017 

046512 

000250 

174406 

000006 

000000 

000004 

000002 

012010 

012716 

012202 

013574 

000006 

000200 

000001 

000020 

000010 

002000 

022176 

003062 

004233 

004117 

002136 

021440 

000200 

000040 

CO0100 

000020 

004050 

004 305 

004425 

004426 

004000 

003636 

005176 

003675 

022210 

000100 

000000 

000000 

000001 



OIBGNR- 
0I8GNS- 
OIOU • 
OIERRT- 
OIGNSW- 
OIPOIN- 
OISETU- 
PASRPT 
PATCH 
PATOAT 
PC. ERA- 
PC. IER- 
PC.NOO- 
PC.REL- 
PC.REW- 
PKBCNT- 
PKMI - 
PKLOW ■ 
PKTAOO 
PKTFRM 
PKTGET 
PKTMES 
PKTNEW 
PKTRAM 
PKTSSR 
PNT 

PRAMPK 
PRSEXP 
PRBMSG 
PRBREC 
PRSTOT 
PRfiYTE 
PRr 

PRIAOO 
PRIAO 
PRIBXO 
PRIEQU 
PRIPKT 
PRIRAM 
PRITAO 
PRITSS 
PRITO 
PRIXOR 
PRIOO - 
PRI01 • 
PR 102 • 
PRI03 - 
PRI04 • 
PR 105 » 
PRI06 • 
PRI07 - 
PRMESS 
PRMNO 
PRMSGE 
PRMSGO 
PRMSG1 
PRMSG2 



000001 
000001 
000001 
000000 
000001 
000001 
000001 
022242 
053436 
0«?1134 
002400 
002000 
001000 
000000 
00C400 
000006 
000004 
000002 
00/276 
007240 
011730 
011754 
007333 
004643 
011700 
0C1000 
013630 
016340 
016206 
016342 
016273 
015772 
002000 
007712 
007762 
007344 
007612 
007072 
007620 
010026 
005264 
010076 
0074 74 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 
014062 
002264 
015422 
015602 
015647 

Q15705 



PROASC 

PR1ASC 

PST32W 

PUNIT 

PW.D11 

PW. 013 

PW.D22 

PW.NOP 

PW.N01 

PW.ROE 

PW.RDR 

PW.RDS 

PW.RFI 

PW.WCT 

PW.WTI 

PW.WFM 

pu.wmi 
pg. wnp 
pg.uTR 

P.ACK 

P.CMO 

P.CONT 

P.CVC 

P.FMT 

P. FORM 

P. GETS 

P. IE 

P.INIT 

P.MOOE 

P.OPP 

P.POSI 

P. READ 

P.SWB 

P. WRIT 

P.gRTC 

P.WRTS 

QVP 

RAMASC 

RAMOAT 

RAMER 

RAMERR 

RAMEXP 

RAMFHR 

RAMFOR 

RAMMLO 

RAMIOP 

RAMPO 

RAMR5H 

RAMSIZ 

RAMTAO 

RBPCRA 

RCVHIA 

RCVLOA 

RDERR 

REAO 

REAOY 

RECMSG 



014714 
014761 
003104 
0224 76 
000021 
000022 
000020 
000000 
000023 
000024 
000001 
000005 
000003 
000006 
000004 
000007 
000010 
000011 
000002 
100000 
000037 
000012 
040000 
000140 
000011 
000017 
000200 
000013 
007400 
020000 
000010 
000001 
010000 
000005 
0000O4 
000006 
002152 
013776 
002206 
010636 
016360 
016400 
014536 
007650 
011020 
011024 
011075 
011022 
002246 
016366 
015131 
002250 
002252 
00^104 
000014 
000001 
002432 
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SEQ 210 


SYMBOL 


TABLE 






















RECV 


002200 G 


SI, ICE- 


002000 




TSTR1I 


024516 


tmpta- 


010072 


T23ET 


030573 




REGSAV 


021040 


SI. IEO- 


010000 




TST.72I 


026052 


TMRPT- 


010035 


T25L00 


026276 




REWIND 


010454 G 


S1»IFM- 


001000 




TST23I 


051761 


TMSOF- 


010070 


T230FL 


051501 




RMCH8E- 


000167 


Sl.IHE- 


000400 




TST24I 


045172 


TMSRV- 


010026 


T23PAC 


030360 




RMCHEN- 


000200 


Sl.IID- 


004000 




TST39I 


051450 


TIISUB- 


010063 


T23PK2 


0304 70 




RMMSG8* 


000104 


S1.X1R- 


020000 




TST40I 


052756 


TMSW ■ 


oioooi 


T23PK3 


030510 




RMMSGE- 


000*17 


S1.I2R- 


040000 




TTIBFR. 


177562 G 


TMTES- 


010066 


T23RES 


031776 




RMPKTB- 


000020 


SI, PAR- 


iooooc 




TTICSR- 


177560 G 


Tl 


023654 G 


T25RNC 


051160 




RMPKTE- 


000027 


S2.ATI- 


000010 




TTION 


052200 


T2 


024674 G 


T*3RSZ 


050520 




RMR 


010000 


S2.BTI- 


000004 




TTI0N2 


044604 


T2.1 


024754 


T23RT2 


052070 




RWPACK 


010530 


S2.0IM- 


000200 




TTIVEC- 


000060 G 


T21AM5 


024575 


T23RT3 


052132 




SC 


100000 


S2.ILW- 


000100 




TT06FR- 


177566 


T21BFR 


024170 


T25RWN 


051111 




SCE 


020000 


S2.INR- 


000020 




TTOCSR' 


' 177564 


T21BF2 


024270 


T23SSR 


050540 




SCME 


0O4711 


S2.0UT- 


000040 




TUV2A 


002000 G 


T21BS0 


024270 


T23SZ 


050516 




SCMENU 


052206 


S2.UND- 


000003 




TVECSA 


052202 


T21BS1 


024271 


T25S2 


050524 




SDELAY 


010330 


TBtEND- 


003050 


G 


TVSAV2 


044606 


T210AT 


024160 


T25S5 


050526 




SEEK ■ 


000006 


TCOASC 


006200 




TIARGC- 


. 000001 


T21DLY 


024276 


T25TM 


050756 




SELASC 


021346 


TCOCOO 


006400 




TIC006- 


• 001150 


T21L00 


025674 


T25TMA 


031025 




SELDAT- 


000004 


TEMPI 


005064 


G 


TIERRN- 


■ 001276 


T210FL 


024475 


T23VCK 


051545 




SEL2 - 


000002 


TEMP2 


005066 


G 


TIEXCP" 


. 000000 


T21PAC 


024150 


T23WB 


030512 




SET MAP 


020270 


TERCLS- 


000016 




TIFLAG- 


. 000040 


T21PK2 


024260 


T23W0 


050530 




SETU 


022274 


TESTNO- 


000007 




TIFREE" 


• 055454 


T21R€S 


024540 


T23WOC 


051443 




SFFMSG 


011746 G 


TEXASC 


006157 




TIGMAN« 


• 000000 


T21RT2 


024650 


T25WOO 


031554 




SFHERR 


003603 


TFCASC 


006241 




TIHILI- 


» 000007 


T21SSR 


024500 


T25WOR 


030532 




SFIERR 


003550 


TIMEXP 


016422 


G 


TILAST' 


• 000001 


T21S2 


024272 


T25WSS 


051672 




SFIMSG 


011666 G 


TIMSGO 


016450 




T$L0LI« 


• 000000 


T21S5 


024274 


T24AM5 


042160 




SFPTBL 


002134 <3 


TINERR 


011655 




TILSYM* 


. 010000 


T22A.M5 


025455 


T24BA 


042512 




SIFLAG 


003106 G 


TKB 


177562 




TILTNO- 


■ 000007 


T226FR 


025222 


T24BFR 


040570 




SIMSG 


011620 


TKS 


177560 




TIHEST- 


. 000000 


T228F2 


025520 


T24BF2 


040710 




SKIP 


050320 


TMPBFR 


002576 


G 


TINSC ■ 


■ 000000 


T22BS0 


025520 


T24B0T 


041555 




SKIP! 


003332 


TNAM 


017604 




TINS1 • 


• 000005 


T226S1 


025521 


T24BS0 


040710 




SO^INI 


016644 G 


TP8 


177566 




TINS* ■ 


, 000002 


T220AT 


025210 


T24BS1 


040711 




SPACE 


010140 G 


TPRISA 


052204 




TIPCNT' 


■ 000000 


T22F0R 


025554 


T24C0N 


O40722 




SPM1 


053242 


TPS 


177564 




TIPTA8- 


• 010072 


T22L00 


024 754 


T240AT 


040560 




SPM4 


053306 


TPSAV2 


044610 




TIPTHV* 


• 000001 


T220FL 


025555 


T24DLY 


040726 




5PM6 


053356 


TRANST 


002154 


G 


TIPTNU- 


• 000001 


T22PAC 


025200 


T240TA 


041620 




SPM7 


053366 


TS8A • 


177776 


G 


TISAVL' 


• 177777 


T22PK2 


025510 


T24IE0T 


041706 




SRO 


177572 


TSBAM - 


177777 


G 


TISEGL* 


■ 177777 


T22P0S 


025552 


T24ILA 


041502 




SRI 


177574 


TSBAL • 


177776 


G 


TISIZE- 


. 000005 


T22R0 


025526 


T24L0N 


042652 




l :R2 


17757c 


TSOB - 


177776 


G 


TdSUBN- 


• 000000 


T22RES 


026066 


T24L00 


052224 




bF3 


172516 


TS06H ■ 


177777 


G 


TITAGL- 


• 177777 


T22R12 


026100 


T24L0P 


042754 




ss:* 


000200 


TSOBL - 


177776 


G 


TtTAGN- 


• 010074 


T22RWJ 


025704 


T24L0Q 


041566 




S7>TCO 


012244 


TSFCOO 


006740 




TITEMP 


• 000010 


T22SSR 


025540 


T24L0R 


041002 




SVCG8L- 


000000 


TSREJ - 


000006 




TITEST- 


. 000007 


T22S2 


025522 


T24NEF 


040750 




SVC.INS- 


000000 


TS50EF 


006510 




TITSTM 


• 177777 


T22S5 


025524 


T24NXM 


041141 




SVwSUB- 


000001 


TSSR • 


000000 


G 


TITSTS 


» 000001 


T22TM 


025610 


T240FL 


042225 




SVCTAG- 


000000 


TSSR8I 


005400 


G 


TltAU 


• 010051 


T22VCK 


025757 


T24PAC 


040550 




SVC t 'jT- 


000001 


TSSftfO 


006117 




TttAUT 


• 010053 


T22WRT 


025350 


T24PBP 


045016 




>ti.SYM- 


010000 


TSSRM • 


000001 


G 


TMCLE 


• 010054 


T25AM5 


051255 


T24PK2 


040660 




U 106- 


000010 


TSSX 


005716 




TMOAT 


• 010073 


T258A 


051620 


T24PK5 


040700 




50.IFB- 


000002 


TSTBLK 


002720 


G 


TMOU 


• 010052 


T258FR 


050400 


T24RB 


040702 




SO.IFP- 


00000\ 


1STCNT 


002162 


G 


t:ihar 


• 01006/ 


T258F2 


030522 


T24RES 


04 3240 




SO.ILD- 


tvocsn 


TSTEND 


017620 




TUHU 


• 010000 


T25BS0 


030522 


T24RN 


040716 




SO. ION 


o-'jor-o 


TbTFLA 


002260 


G 


thin: 


• 010050 


T23BS1 


030523 


T24RNC 


042105 




SC.IRO- 


0O0i\O 


VSTLOO 


017356 


C 


tmmsg 


■ 010025 


T25C0N 


030534 


T24RT2 


043332 




SO.IRU- 


0OC0O4 


TSTPTR 


002262 


G 


tiipc 


• 000001 


T230AT 


030370 


T24RT3 


043374 




SO.I5P* 


000200 


TfSTSET 


017410 


G 


TIIPRO 


• 010027 


T23E0T 


030660 


T24RUN 


042036 
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T24SSR 


041447 


T24SZ 


040706 


T24S2 


040712 


T24S3 


040714 


T24TM 


041763 


T24TRL 


043104 


724 vc; 


042437 


T24WB 


040702 


724WOC 


042366 


T24W0D 


042300 


T24W0E 


041501 


T24W0F 


041225 


T24WDG 


041052 


T24WDR 


040720 


T24WS5 


042563 


T3 


026226 G 


T3.1 


026276 


T3.2 


026642 


T3.3 


027320 


T3.4 


027526 


T3.5 


030014 


T38ASC 


04 7507 


T38ASN 


04 7526 


T38AS0 


047404 


T38AS1 


047451 


T388FR 


044636 


T388S0 


O44630 


TMBST 


044631 


T386S2 


044632 


T38CNT 


047552 


T 380 AT 


047042 


T380LY 


044612 


T38CTA 


045330 


T38EAI 


045336 


T38EB 


045312 


T38ID 


046466 


T38MBP 


047102 


T38MSG 


046370 
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T38MS2 


046324 


T39PK4 


050770 




WC.I1T- 


000040 




T38MS4 


046026 


T39RES 


051412 




WC.I5R- 


000020 




T38HS5 


046105 


T39RL 


051406 




WF.IEO- 


000010 




T38MS6 


046162 


T39SIZ 


050776 




WF.IER- 


' 000004 




T38fC 


045400 


T39TA0 


050240 




UF.IMI- 


. 000200 




T380FL 


045 # 72 


T39WPN 


051244 




WF.IRE- 


■ 000040 




T380NL 


045676 


T39WR 


050772 




WF.IWF- 


. 000020 




T 3801*1 


045740 


T39WRT 


051171 




WF.IWR- 


. 000100 




T38PAC 


044620 


T4 


032160 


G 


WF.I3R- 


■ 000002 




T38PK2 


045320 


T4.1 


032224 




WF.I4R- 


• 000001 




T38PK3 


045350 


T4.10 


037270 




WRTCMR 


010332 


G 


T38PK4 


045370 


T4.ll 


037562 




WRTERR 


005011 




T38RES 


047044 


T4,12 


040052 




WRTMSG 


004 754 




T38SIZ 


045376 


T4.2 


033014 




XFERAS 


016610 




T38SST 


046240 


T4.3 


033562 




XNXM 


017276 




T 38V AD 


044630 


T4.4 


034256 




XORBFO 


007426 




T38ULE 


045602 


T4.5 


034714 




XORFOR 


007544 




T38W0K 


046430 


T4.6 


035342 




XSTO « 


. 000006 


G 


T38UR 


045372 


T4.7 


035770 




XST1 ■ 


■ 000010 


G 


T38WRL 


045541 


T4.8 


036352 




XST2 « 


■ 000012 


G 


T38WRT 


045455 


T4.9 


037026 




XST3 ■ 


• 000014 


G 


T396FR 


050246 


T40NE 


0527U 




XST4 ■ 


• 000016 


G 


T39GS0 


050240 


T40NSR 


052772 




XS060T- 


■ 000002 




T398S1 


050241 


T5 


043426 


G 


XSOCON 


015176 




T396S2 


050242 


T6 


047556 


G 


XSOEOT- 


• 000001 




T 390 AT 


051410 


T7 


051500 


G 


XSOIE ■ 


• 000040 




T390LY 


050224 


UAM 


000200 


G 


XSOILA- 


• 000400 




T390TA 


050740 


UNITN 


002150 


G 


XSOILC- 


• 001000 




T39EAI 


050746 


UNREC - 


000O06 




XSOLET- 


- 020000 




T39MCL 


051323 


US I 


004021 




XSOHOT- 


• 000200 




T39NE 


051003 


WAITF 


017120 


G 


XSONEF* 


• 002000 




T39NFL 


051000 


WC.IFA- 


000200 




XSOONL 


• 000100 




T390F2 


051062 


WC.IFE- 


000002 




XSOPEO' 


• 000010 




T390N2 


051126 


WC.IGO- 


000001 




XSOflLL 


• 010000 




T39PAC 


050230 


WC.IRE- 


000010 




XSORLS« 


• 040000 




T39PK2 


050730 


WC.IRW- 


000004 




XSOTMK 


• 100000 




T39PK3 


050760 


WC.IOT- 


000100 




XSOVCK" 


■ 000020 
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XSOWLE- 


■ C04000 




XSOWLK" 


• 000004 




XS1C0N 


015243 




XS2C0N 


015310 




XS3C0N 


015355 




XXCOMM 


003070 G 




XtALUA* 


■ 000000 




XIFALS- 


■ 000040 




XIOFFS- 


■ 0O0400 




XITRUE- 


. 0O0020 




XI. COR* 


• 020000 




Xl.OLT- 


■ 100000 




Xl.MBZ- 


■ 017375 




Xl.RBP" 


• 000400 




Xi..SPA« 


. 040000 




XI. UNO 


• 000002 




X2.BUF- 


■ 000100 




X2.EXT- 


• 000200 




X2.0PM- 


■ 100000 




X2.RCE- 


■ 040000 




X2.REV« 


» 000077 




X2.SPA- 


• 035400 




X2.UNI- 


. 0O00O7 




X2.WCF- 


■ 002000 




X3.DCK. 


■ 000010 




X3.MBZ* 


• 000006 




X3.M0E 


• 177400 




X3.0PI- 


■ OOOIOO 




X3.REV« 


• 0O0040 




X3.RIB 


• 000001 




X3.SPA- 


. 000200 




X3.TRF- 


• 000020 




X4.HSP' 


• 100000 




X4.MBZ 


• 017400 




X4.RCE- 


» 040000 




X4.TSM 


■ 020000 




X4.WRC" 


• 000377 





. ABS. 053454 OOO 

000000 001 
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